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ABSTRACT 

This  report  documents  the  computer  programs  used  for 
the  development  of  the  Depot  Maintenance  Planning  and  Pro- 
gramming System  repair  data  base.  The  introduction  presents 
an  overview  of  the  concepts  behind  the  creation  of  the  data 
...  Section  2 describes  the  programs  which  were  used  to 
convert  raw  input  data  into  a usable  format.  Section  3 ex- 
plains the  program  which  analyzed  the  reformatted  data.  Sec- 
tion 4 documents  the  program  which  produced  the  actual  ele- 
ments of  the  repair  data  base  after  the  analyses. 
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1.0  Introduction 

The  primary  purpose  of  this  report  is  to  document  the  programs 
used  to  develop  the  repair  data  base  for  the  Depot  Maintenance  Plan- 
ning and  Programming  System  (DMPPS) . This  introduction  is  written 
to  serve  as  an  overview  of  the  concepts  behind  the  creation  of  the 
repair  data  base  so  that  the  following  sections  do  not  appear  out  of 
context. 

One  of  the  major  subsystems  of  the  CMPPS  is  the  Repair  Subsystem. 
It  is  responsible  for  creating  a set  of  repair  matrices.  The  columns 
of  the  matrices  correspond  to  the  various  functional  shops  (of  ship- 
yards) ; the  rows  correspond  to  single  digit  ship  work  breakdown  struc- 
ture (SWBS)  categories;  and  each  ij-th  matrix  entry  represents  the 
fraction  of  work  performed  under  the  i-th  SWBS  category  in  the  j-th 
shop.  Each  matrix  is  applicable  to  a collection  of  ships  (usually 
class)  for  a particular  type  of  work.  "Rie  following  approach  was  used 
to  develop  the  matrices. 

1)  79  groupings  of  three  digit  SWBS  elements  were  developed  such 
that;  (1)  the  shipwork  performed  within  the  groupings  had  a 
consistently  proportional  spread  to  the  shops,  and  (2)  each 
grouping  could  be  mapped  into  one  and  only  one  single  digit 
SWBS  category.  These  groupings  are  called  Depot  Maintenance 
Planning  Modules  (EMRI's). 

2)  Sets  of  shop  vectors  were  developed  which  specify  the  fraction 
of  work  for  each  shop  within  each  CMIW. 

3)  For  each  collection  of  ships/type  of  work  combination,  the 
fraction  of  work  for  each  DMPM  was  determined.  This  set  of 
fractions  breaking  down  the  total  ship  repair  work  by  DMFM 
is  termed  a "CMP^  repair  profile." 


4)  The  applicable  shop  vectors  were  used  to  spreaid  the  above  frac- 
tions for  each  CMFM  to  the  shops.  The  resultant  matrix  is  called 
a CMFM-shop  matrix  for  the  ship  class  or  category. 

5)  The  DMPM-shop  matrices  were  summarized  to  the  one  digit  SWBS 
level,  thereby  forming  the  desired  single  digit  SWBS-shop  repair 
matr ices. 

Some  of  the  rationale  for  undertaking  the  above  approach  rather 
than  developing  the  matrix  directly  were: 

1)  The  shipyard  and  PERA's  naturally  planned  at  the  three  digit 
SWBS  level,  thus  the  data  should  be  easier  to  obtain 

2)  By  having  a data  base  at  a lower  level  of  detail  than  what 
was  reported,  the  capability  to  do  further  analyses  was  present 

3)  Eventually  the  system  might  be  used  for  making  conparisons  be- 
tween different  levels  of  funding  - thus  a prioritization  of  the 
work  by  three  digit  SWBS  grouping  would  be  needed  and  utilized. 

The  following  steps  represent  a general  overview  of  the  process 
leading  to  the  creation  of  the  set  of  depot  maintenance  planning  module 
repair  profiles  that  formed  the  initial  repair  data  base  of  the  Depot 
Maintenance  Planning  and  Programming  System. 

1)  All  active  and  reserve  Naval  ships  were  subdivided  into  exhaus- 
tive, disjoint  groups,  each  of  which  to  have  a separate  depot 
maintenance  planning  module  repair  profile.  The  primary  sub- 
division was  by  ship  class,  however  in  some  cases  (usually  for 
auxiliary  and  amphibious  ships)  where  there  were  more  minor 
differences  between  ship  classes,  ship  type  was  used  for  the 
subdivision. 


3 


4 


2)  Within  some  of  the  groups  identified  in  1)  above,  a further 
subdivision  by  type  of  work  was  made.  This  subdivision  was 
made  in  two  areas — to  separate  selected  restricted  availabil- 
ities from  regular  overhauls  (e.g.,  for  CV,  CVN,  CQJ,  SSN,  SSBN) 
and  to  distinguish  between  regular  overhauls  and  refuelings 
on  nuclear  submarines. 

3)  As  many  departure  reports  and  shipyard  FA-923A  reports  that 
could  be  found  were  collected  for  each  of  the  groups  identified 
in  1)  and  2)  above.  The  actual  manning  profile  was  manually 
extracted  and  keypunched  from  each  of  the  reports.  In  some 
cases  the  profile  was  by  SWBS,  and  in  other  cases,  the  profile 
was  by  ships  system  index  (SSI).  In  those  cases  where  the 
departure  report  used  the  Bureau  of  Ships  consolidated  Index 
or  the  S-Group  Structure,  a manual  conversion  to  SWBS  was  made. 

4)  For  each  SWBS/SSI  manning  profile  keypunched,  a CMPM  single- 
ship repair  profile  was  created.  This  function  was  carried 
out  through  the  use  of  the  computer  programs  SUBPRO  and  SURFPR 
described  in  Section  2. 

5)  All  single-ship  repair  profiles  within  a ship  grouping  were 
combined  into  a CMPM  combined-ship  repair  (unnormalized)  profile 
by  the  STATS  computer  program  documented  in  Section  3. 

6)  Final  DMFM  repair  profiles  were  obtained  by  normalizing  the 
output  of  STATS  with  the  REPROF  computer  program  documented 
in  Section  4.  In  the  case  of  nuclear  submarines,  STATS  produced 
separate  output  for  the  non-nuclear  repair  parts,  nuclear  repair 
parts,  and  the  nuclear  refueling  part.  For  these  ships,  REPROF 
took  a weighted  average  of  the  distinct  parts  before  normalizing. 
The  weights  used  were  derived  on  the  basis  of  the  averages  of 
these  distinct  parts  in  the  original  departure  reports. 


4 


2.0  SUBPRO  and  SURFPR 


i 
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2.1 


Function 


The  purpose  of  these  programs  is  to  develop  a CMPM  single-ship 
repair  profile  from  an  input  single-ship  manning  profile.  The  input 
manning  profile  consists  of  the  actual  expended  or  in  some  cases  esti- 
mated manning,  by  three  digit  SWBS  or  SSI.  If  the  manning  is  by  SSI, 
program  SUBPRO  is  used.  For  manning  by  SWBS,  SURFPR  is  the  correct 
choice.  This  is  the  only  difference  between  the  two  programs.  The 
input  manning  may  be  either  in  manhours  or  mandays.  The  progrcims  do 
not  differentiate.  The  output  profile  contains  for  each  of  the  79  CMWs 
the  fraction  of  the  total  manning  that  was  expended.  Table  1 shows  a 
portion  of  a CMEM  single-ship  repair  profile  corresponding  to  the  input 
manning,  also  shown. 


TABLE  1 - I>im  SINGLE-SHIP  REPAIR  PROFILE 


:1 


1 


mm 

MANNING 

PROFILE 

1001 

5083 

0.0653 

1002 

5137 

0.0660 

1003 

• 

148 

0.0019 

9004 

0 

0.0 

9005 

490 

0.0063 

TOTAL 

77848 

1.0 
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2.2  Importance 


T 


I These  programs  were  the  sole  tools  used  to  develop  the  entire  initial 

I data  base  of  CMFM  single-ship  repair  profiles  wruch  were  ultimately  cotth- 

bined  to  form  the  IMFM  repair  profiles  for  the  Depot  Maintenance  Planning 
and  Programming  System.  The  CMR1  repair  profiles  consist  of  the  fraction 
of  the  work  for  each  of  the  79  EMW^s  for  a given  group  (usually  a class  or 
type)  of  ship/type  of  work  combination.  SWBS/SSI  single-ship  manning 
profiles  were  manually  extracted  from  departure  reports  containing  expended 
mandays  and  shipyard  FA-92 3A  estimated  manhour  reports  for  all  recent  ships 
that  were  available.  These  manning  profiles  were  put  on  coding  forms  and 
then  keypunched.  The  keypunched  profiles  were  then  used  as  input  to  either 
SUBPRO  or  SURFPR  from  which  four  outputs  were  derived: 

1)  A printed  listing  of  the  input  manning  profile  by  three  digit 
SWBS*  along  with  the  ratio  of  the  manning  for  each  individual 
three  digit  SWBS  to  the  total  ship  manning. 

I 2)  The  same  as  1)  above  except  summarized  to  the  one  digit  SWBS 

1 evel . 

3)  The  same  as  1)  above  except  the  information  is  accumulated 

at  the  level. 

4)  A punched  card  version  of  3)  above. 

1 

The  printed  output  serves  as  a permanent  record  of  all  raw  data 
available  for  use  in  the  development  of  DMPM  repair  profiles.  Once 
the  program  is  run,  the  initial  SWBS/SSI  input  is  no  longer  required. 
If  card  storage  area  is  not  available,  these  SWBS/SSI  profiles  can  be 
discarded.  The  punched  card  output  is  utilized  as  input  to  the  STATS 
program  where  further  analysis  is  made  toward  the  development  of  I>1FM 
repair  profiles. 


"‘tTiis  Is  the  case  even  if  the  input  manning  was  by  SSI. 
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2.3  Prospects  for  Future  Use 


The  future  source  of  completed  ship  manday  expenditures  will  be 
semiannual  magnetic  tape  submissions  from  the  Naval  shipyards.  The 
function  of  creating  a CMtW  single-ship  repair  profile  will  be  carried 
out  by  other  permanent  feedback  programs.  Thus  there  should  be  no  regular 
use  for  SUBPRO  and  SURFPR  on  ships  overhauled  at  Naval  shipyards.  The  one 
possible  exception  might  be  Charleston  Naval  Shipyard  where  SWBS/SSI  are 
currently  not  part  of  the  job  order  number.  To  avoid  the  additional 
conversion  problems,  completed  ships  from  Charleston  are  not  planned  to  be 
used  initially  for  the  repair  data  base.  However,  if  it  does  become  neces- 
sary to  use  data  from  Charleston  (e.g..  Charleston  overhauls  a ship  class 
for  which  there  is  very  little  information  in  the  repair  data  base) , a 
manual  feedback  procedure  vxauld  be  required  and  either  SUBPRO  or  SURFPR 
would  be  used  to  create  a EMFW  single-ship  repair  profile.  Similarly  in 
the  case  of  private  shipyards,  if  a ship  for  which  the  data  base  is  lacking 
information  is  overhauled,  SUBPRO  and/or  SURFPR  would  be  utilized. 

Several  modifications  to  make  the  programs  more  effective  can  be 
suggested : 

1)  The  programs  could  be  combined  into  one. 

2)  The  programs  could  be  changed  to  only  output  mandays. 

3)  Changes  to  handle  multiple  ship  input  could  be  made. 

However  due  to  the  limited  projections  for  future  use,  no  changes  are 
currently  recommended. 
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2.4  Overall  Flowchart 


BEAD  SSI  TO 
SWBS 

CONVERSION 
(SUBPRO  i 
\ ONLY)  / 


READ  INPUT 
MANNING 
RECORD 


CONVERT  SSI 
TO  SWBS 
ISUBPRO  ONLY) 


INCREMENT 
MANNING  FOR 
THIS  SWBS 


CALCULATE  FRACTION 
FOR  EACH  3 DIGIT 
SWBS 


PRINT 

3-DIGIT 

SWBS  PROFILE/ 


CALCULATE  1 DIGIT 
SWBS 
PROFILE 


PRINT  1 DIGIT 
SWBS 

k PROFILE  / 


READ  THE  SWBSJ 
\ TO  DMPM  / 
\ CONVERSION  / 


CALCULATE 

DMPM 

PROFILE 


PRINT 

DMPM 

PROFILE 


2.5  User  Requirements 


Input  as  many  cards  as  required  which  constitute  the  manning  of 
the  ship  under  consideration  in  the  following  format  for  Unit  ti.  Ttie 
order  of  the  cards  is  immaterial. 

Columns  Description 

1“3  SWBS  (or  SSI)  - right  justified 

6-13  Manning  - right  justified 

The  manning  may  be  in  either  manhours  or  mandays.  However  the  cards 
must  be  consistent.  Also,  there  is  no  limit  on  the  number  of  cards 
that  can  be  input  for  any  single  SWBS  (or  SSI). 

There  is  the  additional  input  of  the  conversion  of  SSI  to  SWBS  and 
the  conversion  of  SWBS  to  CMR^.  However  these  inputs  should  be  maintained 
in  a catalogued  data  set.  The  format  is  shown  in  section  2.8.1,  under 
unit  5. 


2.6  Sample  Problem 


The  following  twelve  pages  contain  a sample  of  four  outputs  of 
SURFPR  for  regular  overhauls  for  the  CV  59,  CV  60,  CV  61,  and  CV  62 
respectively.  The  first  page  for  each  ship  contains  a printed  listing  of 
the  input  manning  profile  by  three  digit  SWBS  along  with  the  ratio  of  the 
manning  for  each  individual  three  digit  SWBS  to  the  total  ship  manning. 
The  second  page  for  each  ship  contains  the  same  information  as  the  first 
page,  except  summarized  to  the  one  digit  SWBS  level.  The  third  and  final 
page  for  each  of  the  ships  again  contains  the  same  information,  but 
presented  at  the  t>lFM  level. 
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CV  59  - Regular  Overhaul 


r 


SwdS 

MANN  IN(> 

«ar  lU 

S4RS 

1 "ir. 

100 

7N23. 

0.0535 

622 

116. 

110 

309. 

0.0010 

623 

6H. 

111 

50  2. 

0.0023 

625 

391  . 

163 

5 7 00. 

0.0273 

631 

1 3329. 

167 

705. 

0.0050 

635 

672  . 

221 

20079. 

0.1601 

635 

29. 

231 

1293. 

0.0075 

650 

5989  . 

251 

161. 

0.0009 

712 

5120. 

253 

1698  . 

0.0097 

721 

29  . 

255 

591. 

0.0035 

855 

60. 

251 

2705. 

0.0159 

980 

909  . 

253 

1912. 

0.0109 

982 

3111. 

2 55 

607. 

0.0039 

992 

8356  . 

255 

3753. 

0.0215 

993 

2972. 

256 

066  . 

0.0059 

995 

191  . 

254 

553. 

0.0025 

997 

1259. 

261 

1565. 

0.0009 

262 

236. 

0.0013 

311 

6915. 

0.0395 

315 

22. 

0.0001 

325 

1535. 

0.0008 

500 

35. 

0.0002 

522 

1908. 

0.0109 

526 

702. 

0.0050 

530 

591  . 

0.0028 

537 

555. 

0.0031 

551 

1883. 

0.0107 

551 

36. 

0.0002 

552 

1371. 

0.0078 

553 

06. 

0.0005 

555 

962  . 

0.0055 

555 

35. 

0.0002 

570 

317. 

0.0018 

590 

889. 

0.0051 

511 

929. 

0.0053 

513 

11  33. 

0.0065 

515 

1392. 

0.0079 

521 

3575. 

0.0198 

522 

50. 

0.0002 

526 

612. 

0.0035 

528 

153. 

0.0009 

529 

905. 

0.0052 

531 

1593. 

0.0091 

535 

3777. 

0.0215 

551 

180. 

0.0010 

552 

2157. 

0.0123 

551 

2502. 

0.0153 

553 

1107. 

0.0063 

561 

597. 

0.0028 

562 

5017. 

0.0229 

571 

202. 

0.0012 

572 

1517. 

0.0081 

501 

65. 

0.0005 

503 

517. 

0.0025 

585 

1380. 

0.0079 

506 

6597. 

0.0371 

587 

10009. 

0.1027 

500 

5051. 

0.0287 

611 

655. 

0.0037 

n 


i 


-tATin 

0.0007 

0.  ooo<. 
o.no?? 

0.07(S0 

0.003B 

0.000? 

0.03^.? 

0.0?35 

0.000? 

0.0003 

0.0052 

0.0177 

0.0<*77> 

0.0154 

0.0011 

0.0072 
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CV  59  - Regular  Overhaul 
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8A  r in 

100 

13818. 

0.0788 

200 
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300 

8A71  . 

0.0983 
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600 
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700 

9149  . 
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800 

60. 

0.0003 

900 
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0.0957 

17*334^  . 
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CV  59  - Regular  Overhaul 


DMPM 
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1002 
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U. 
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2002 

0. 
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2003 

28522. 

0.1627 

2004 

0. 
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2005 
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2006 

0. 
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2007 

2450. 

0.0140 

2008 

0. 

n.o 

2009 

2 7 84. 
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2010 

0. 
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2011 

1912. 

0.0 109 

20  12 

5306. 

0.0303 

2013 

1801  . 

0.0103 

3001 

6914. 

0.0394 

3002 

1557. 

0.0089 

3003 

0. 

0.0 

3004 

0. 

0.0 

4001 

0. 

0.0 

4002 

0. 
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4003 

2610  . 

0.0149 

4004 

0. 

0.0 

4005 

2919. 

0.0166 

4006 

1527. 

0.0087 

4007 

962  . 
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0. 

0.0 

4009 

317. 

0.0018 

4010 

0. 

0.0 

4011 

92  3. 

0.0053 

5001 

929. 

0.0053 

5002 

1133. 

0.0065 

5003 

0. 

0.0 

5004 

1392. 

0.0079 

5005 

16499. 

0.0941 

5006 

4017. 

0.0229 

5007 

497. 

0.0028 

5008 

3481  . 

0.0199 

5009 

6497. 

0.0371 

5010 

18009. 

0.1027 

5011 

5041  . 

0.0287 

5012 

0. 

0.0 

5013 

0. 

0.0 

5014 

0. 

0.0 

6001 

644  . 

0.0037 

6002 

13329. 

0.0760 

6003 

701. 

0.0040 

6004 

0. 

0.0 

6005 

0. 

0.0 

6006 

0. 

0.0 

6007 

0. 

0.0 

6008 

0. 

0.0 

DMPM 

MANN  I NG 

■(A  Tin 

6009 

5989  . 

0.0342 

6010 

575. 

0.0033 

6011 

0. 

0.0 

7001 

29. 

0.0002 

7002 

4120. 

0.0235 

7003 

0. 

0.0 

7004 

0. 

0.0 

7005 

0. 

0.0 

7006 

0. 

0.0 

7007 

0. 

0.0 

8 001 

0. 

0.0 

8002 

0. 

0.0 

8003 

0. 

0.0 

8004 

60. 

0.0003 

8005 

0. 

0.0 

9001 

3111. 

U.0177 

9002 

909  . 

0.0052 

900  3 

1 1509. 

0.0656 

9004 

0. 

0.0 

9005 

1 259. 

0.0072 

13 


CV  60  - RagtiUr  Ovarhaul 


S^flS 

MANN ING 

RAT  10 

100 

3149. 

0.0118 

no 

7168. 

0.0268 

111 

1269. 

0.0048 

I'.o 

228. 

0.0009 

163 

8490. 

O.0318 

167 

22. 

0.0001 

171 

124. 

0.0005 

200 

297. 

0.0011 

221 

30550. 

0.1144 

231 

5 7 80. 

0.0216 

2‘.1 

29. 

0.000  1 

243 

6859. 

0.0257 

245 

597. 

0.0022 

251 

5461  . 

0.0204 

253 

1386. 

0.005? 

254 

5022. 

0.0188 

255 

10482  . 

0.039? 

256 

116. 

0.0004 

259 

102. 

0.0004 

261 

3785. 

0.0142 

262 

1449. 

0.0054 

264 

151  . 

0.0006 

311 

3382  . 

0.0127 

312 

215. 

0.0008 

314 

383  . 

0.0014 

324 

847. 

0.0032 

330 

247  . 

0.0009 

422 

1209. 

0.0045 

426 

382  . 

0.0014 

430 

1854. 

0.0069 

437 

137. 

0.0005 

44  1 

2787  . 

0 .0 104 

445 

8-39. 

0.0032 

451 

1 20. 

0.0004 

452 

64  8 . 

0.0024 

453 

5 84. 

0.0022 

454 

1465  . 

0.0055 

455 

167. 

0.0006 

470 

214. 

0.0008 

475 

163. 

0.0006 

490 

322  . 

0.0012 

511 

256. 

0.0010 

513 

3329. 

0.0125 

514 

5226. 

0.0 196 

516 

3318. 

0.0124 

52  1 

3731  . 

0.0140 

522 

26. 

0.0001 

524 

315. 

0.0012 

626 

278. 

n.oolo 

529 

3193. 

0.0120 

531 

2652  . 

0.0099 

532 

IffZO. 

0.0061 

533 

92  . 

0.000  3 

534 

6428. 

0 . )?4l 

541 

1639. 

0.0061 

542 

2243. 

0.0084 

543 

182  . 

0.0007 

551 

3520. 

0.0132 

553 

3826. 

0.0143 

SMBS 

manning 

RATIO 

561 

1488  . 

0.0056 

562 

4847. 

0.0181 

571 

2044  . 

0.0077 

572 

97. 

0.0004 

581 

736. 

0.0028 

583 

1057. 

0.0040 

584 

5820. 

0.0218 

586 

5590. 

0.0209 

587 

29984 . 

0.1122 

588 

8074. 

0.0302 

61 1 

1324. 

0.0050 

622 

1714. 

0.0064 

623 

57  . 

0.000? 

624 

29. 

0.0001 

6;  1 

24363. 

0.0912 

6 35 

1400. 

0.0052 

640 

2263. 

0.0085 

712 

8203. 

0.0307 

713 

15  . 

0.0001 

980 

1 7 09. 

0.0064 

982 

4244  . 

0.0159 

992 

446  3. 

0.0167 

993 

5901  . 

0.0221 

997 

1 357  . 

0.0051 

14 


CV  60  - Reqular  Overhaul 


SWBS 

MANN ING 

RATIO 

100 

20450. 

0.0765 

200 

72066. 

0.2698 

300 

5074. 

0.0190 

400 

10911 . 

0.0408 

500 

101611. 

0.3803 

600 

31150. 

0.1166 

700 

8218. 

0.0308 

800 

0. 

0.0 

900 

17674. 

0.0662 

26715A. 


15 


CV  60  - Regular  Overhaul 


DMPM 

MANN ING 

84T  in 

1001 

11814. 

0.0442 

1002 

0. 

0.0 

1003 

0. 

0.0 

1004 

0. 

0.0 

1005 

8490. 

0.0318 

1006 

0. 

0.0 

1007 

22. 

0.000  1 

1008 

124. 

0.0005 

1009 

0. 

0.0 

2001 

297. 

0.0011 

2002 

0. 

0.0 

2003 

30652. 

0.1147 

2004 

0. 

0.0 

2005 

5780. 

0.0216 

2006 

0. 

0.0 

2007 

74  85. 

0.0280 

2008 

0. 

0.0 

2009 

5461. 

0.0204 

2010 

0. 

0.0 

2011 

1386. 

0.0052 

2012 

15620. 

0.0585 

2013 

5385. 

0.0202 

3001 

3597. 

0.0135 

3002 

1477. 

0.0055 

3003 

0. 

0.0 

3004 

0. 

0.0 

4001 

0. 

0.0 

4002 

0. 

0.0 

4003 

1591. 

0.0060 

4004 

0. 

0.0 

4005 

5637. 

0.0211 

4006 

1519. 

0.0057 

4007 

1465. 

0.0055 

4008 

0. 

0.0 

4009 

377. 

0.0014 

4010 

0. 

0.0 

4011 

322. 

0.0012 

5001 

256. 

0.0010 

5002 

3329. 

0.0125 

5003 

0. 

0.0 

5004 

8544. 

0.0320 

5005 

29745. 

0.1113 

5006 

4847. 

0.0181 

5007 

1488. 

0.0056 

5008 

9754. 

0.0365 

5009 

5590. 

0.0209 

5010 

29984. 

0.1122 

5011 

80  74. 

0.0302 

5012 

0. 

0.0 

5013 

0. 

0.0 

5014 

0. 

0.0 

6001 

1324. 

0.0050 

6002 

24363. 

0.0912 

6003 

1400. 

0.0052 

6004 

0. 

0.0 

6005 

0. 

0.0 

6006 

0. 

0.0 

600  7 

0. 

0.0 

6008 

0. 

0.0 

0MP.-1 

. 1 Ai^N  I NG 

RATIO 

6009 

2263. 

0.0085 

6010 

1800. 

0.0067 

601  1 

0. 

0.0 

7001 

0. 

0.0 

7002 

8213. 

0.0308 

7003 

0. 

0.0 

7004 

0. 

0.0 

7005 

0. 

0.0 

7006 

0. 

0.0 

7007 

0. 

0.0 

8001 

0. 

0.0 

8002 

0. 

0.0 

8003 

0. 

0.0 

8004 

0. 

0.0 

8005 

0. 

0.0 

9001 

4244. 

0.0159 

9002 

1709  . 

0.0064 

9003 

10364. 

0.0388 

9004 

0. 

0.0 

9005 

1357. 

0.0p51 

I 
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fv  n 


OpTulflr  Ovprhflijl 


SMBS 

MANN ING 

RATIO 

100 

699. 

0.0037 

no 

3001. 

0.0199 

111 

2749. 

0.0144 

lb3 

563. 

0.0029 

167 

637. 

0.0033 

171 

133. 

0.0007 

180 

755. 

0.0039 

221 

24710. 

0.1292 

231 

2495. 

0.0130 

241 

193. 

0.0010 

243 

1042. 

0.0054 

2 44 

51  . 

0.0003 

246 

100. 

0.0009 

251 

7085. 

0.0370 

253 

2029. 

0.0106 

2 54 

681 . 

0.0036 

255 

9379. 

0.0490 

256 

1161. 

0.0061 

259 

475. 

0.0025 

261 

549. 

0.0029 

262 

327. 

0.0017 

2 64 

190. 

0.0010 

311 

4889. 

0.0256 

312 

20. 

0.0001 

314 

1733. 

0.0091 

321 

269. 

0.0014 

324 

1076. 

0.0056 

400 

59. 

0.0003 

422 

1124. 

0.0059 

42  3 

244. 

0.0013 

426 

654  . 

0.0034 

430 

916. 

0.0048 

437 

207. 

0.0011 

44  1 

1311. 

0.0069 

445 

75. 

0.0004 

446 

295. 

0.0015 

451 

90. 

0.0005 

452 

361 . 

0.0019 

453 

473. 

0.0025 

4 54 

520. 

0.0027 

455 

67. 

0.0004 

460 

33. 

0 .0002 

470 

482. 

0.0025 

400 

458. 

0.0024 

490 

515. 

0.0027 

511 

233. 

0.0012 

513 

1635. 

0.0085 

514 

11543. 

0.0603 

516 

654. 

0.0034 

521 

1484. 

0.0078 

524 

17. 

0.000  1 

526 

459. 

0.0024 

528 

88. 

0.0005 

52  9 

1788. 

0.0093 

531 

2461  . 

0.0129 

533 

3654. 

0.0191 

534 

6072. 

0.0317 

536 

115. 

0.0006 

541 

676. 

0.0035 

SMBS 

manning 

RATIO 

542 

3121 . 

0.0163 

543 

5. 

0.0000 

551 

3752. 

0.0196 

553 

513. 

0.0027 

561 

865. 

0.0045 

562 

3228. 

0.0169 

571 

2088  . 

0.0109 

572 

673. 

0.0035 

581 

190. 

0.0010 

583 

802. 

0.0042 

584 

1330. 

0.0070 

586 

2205. 

0.0115 

507 

14156. 

0.0740 

588 

4688. 

0.0245 

611 

707. 

0.0037 

622 

718. 

0.0038 

624 

52. 

0.0003 

631 

10950. 

0.0572 

634 

353. 

0.0018 

63  j 

138. 

0.0007 

638 

12. 

0.0001 

640 

4789. 

0.0250 

711 

1358  . 

0.0071 

712 

5977, 

0.0312 

980 

3156. 

0.0165 

982 

716. 

0.0037 

991 

863. 

0.0045 

992 

172. 

0.0009 

993 

14087  . 

0.0778 

994 

1187. 

0.0062 

997 

997  . 

0.0052 

17 
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CV  62  - Regular  Overhaul 


SriBS 

MANN  INC 

100 

652. 

1 10 

668. 

111 

866  . 

163 

6739. 

167 

238. 

171 

102. 

180 

162. 

200 

101. 

221 

26669. 

231 

66  73. 

261 

13. 

263 

6887. 

265 

660. 

261 

6825. 

263 

2713. 

266 

1607. 

266 

5866. 

266 

1662. 

262 

1006. 

311 

6236. 

316 

362. 

326 

1 70. 

330 

33. 

600 

69. 

622 

2367. 

62  3 

367. 

626 

708. 

630 

2290. 

637 

28. 

66  1 

1867. 

665 

693. 

651 

6 . 

652 

1 339. 

656 

797. 

655 

61. 

670 

662. 

690 

673  . 

613 

1771  . 

616 

1609. 

516 

330. 

621 

2977  . 

526 

761  . 

528 

3. 

531 

6066  . 

633 

620. 

636 

2952. 

661 

692  . 

562 

3621  . 

651 

1 706. 

653 

1618. 

661 

369. 

662 

3836. 

671 

1756. 

681 

860. 

683 

216. 

686 

1939. 

686 

7081  . 

687 

16680. 

68S 

6819. 

RAT  10 

SMBS 

manning 

RATIO 

0.0026 

61  1 

6. 

0.0000 

0.0036 

622 

722. 

0.0038 

0.0066 

631 

16700. 

0.0772 

0.0366 

660 

6173. 

0.0219 

0.0012 

71  1 

5 . 

0.0000 

0.0006 

712 

11906. 

0.0626 

0.0009 

980 

1663. 

0.0082 

0.0005 

982 

1562. 

0.0082 

0.1362 

992 

7393. 

0.0388 

0.0235 

993 

6287. 

0.0330 

0.0001 

997 

963. 

0.0050 

0.0362 
0.00  S'. 
0.0263 
0.0162 
0 .0076 
0.0308 
0.0076 
0.0063 
0.0276 
0.0018 
0.0009 
0.0002 
0.0003 
0.0126 
0.0018 
0.0037 
0.0120 
0.000 1 
0.0098 
0.0036 
0.0000 
0.0070 
0.0062 
0.0003 
0.0026 
0.0030 
0.0093 
0.0076 
0.0017 
0.0166 
0.0039 
0.0000 
0.0212 
0.0033 
0.0156 
0.0036 
0.0190 
0.0089 
0 .0076 
0 . 00  1 9 
0.0201 
0.0092 
0.0066 
0.0011 
0.0102 
0.0372 
0.0871 
0.0263 
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CV  62  - Regular  Overhaul 


r 


SWBS 

MANN ING 

RAT  lU 

100 

9197. 

0.0483 

200 

54940. 

0.2885 

300 

5781  . 

0.0304 

^00 

11566. 

0.0607 

500 

59728. 

0.3136 

600 

19601 . 

0.1029 

700 

11911  . 

0.0625 

800 

0. 

0.0 

900 

17738. 

0.0931 

190462  • 


4 


CV  62  ' Regular  Overhaul 


T 


DMPM 

MANN ING 

RA  r 1(1 

100  1 

1966  . 

0.0103 

1002 

0. 

0.0 

1003 

0. 

0.0 

lOO-V 

0 . 

0 .0 

1006 

6739. 

0.0369 

1006 

0. 

0.0 

1007 

23H  , 

0.0012 

lOOB 

102. 

0.0006 

1009 

162. 

0.0009 

200  1 

101  . 

0.0006 

2002 

0. 

0.0 

2003 

26669. 

0 . 1 392 

2009 

0. 

0.0 

2 00  6 

99  73  . 

0.0236 

2006 

0. 

0.0 

2007 

7690  . 

0.0396 

200H 

0. 

0.0 

2009 

9R26. 

0.0263 

20  10 

0 . 

0.0 

2011 

2713. 

0.0192 

20  12 

8713. 

0.0967 

2013 

1006. 

0 .006  < 

300  1 

6236  . 

0.0276 

3002 

696  . 

0.0029 

300  3 

0. 

0.0 

V)09 

0. 

0.0 

-00  1 

0. 

0.0 

9002 

0. 

0.0 

-00  3 

3922  . 

0.0180 

-009 

0 . 

0 .0 

-006 

9M  /rt  . 

0.0266 

9006 

1396. 

0.0073 

-007 

79  7 . 

0.0092 

900  6 

0. 

0.0 

-009 

962  . 

0.0029 

90  10 

0. 

0 . 0 

90  11 

622  . 

0.003  3 

6001 

0. 

0 . 0 

6002 

1771. 

0.00  9 A 

6 00  3 

0. 

0.0 

6009 

1 739  . 

0.0091 

6006 

lH77i. 

0.0986 

6006 

3836  . 

0.0201 

6007 

369  . 

0.0019 

600H 

9770. 

0.0260 

6009 

7081  . 

0.  1 372 

60  10 

16680. 

0 .087 1 

601  1 

9819. 

0.0263 

60  12 

0 . 

0.0 

601  3 

0. 

0.0 

601- 

0. 

0.0 

600  1 

6 . 

0.0000 

6002 

19  /OO  . 

0.0  772 

600  -1 

0. 

0 . 1 

6009 

0. 

0.0 

600  6 

0. 

0.0 

6006 

•0. 

0.0 

600  7 

0 . 

0.  1 

600H 

0. 

0 . 0 

I1M8M 

MANN  I NO 

RATIO 

6 009 

9173. 

0.0219 

6010 

722. 

0. 0038 

601  1 

0. 

0.0 

7001 

6. 

0.0000 

7002 

11906. 

0.0626 

700  3 

0. 

0.0 

7009 

0. 

0.0 

7006 

0. 

0.0 

7006 

0 . 

0.0 

7007 

0. 

0.0 

800  1 

0 . 

0.0 

8002 

0. 

0.0 

800  3 

0. 

0.0 

8009 

0. 

0.  3 

8 006 

0 . 

- . 7 

9001 

1 662. 

0 . ' ■ 

9002 

1 66  3 . 

. 

9003 

1 36m0. 

.6*  ■ ! 

9 009 

0. 

u . 

9006 

99  8. 

0. 00 6i 

22 
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2.7  Error  Messages 


The  following  errors  are  detected,  nrtessages  printed,  and  actions 
taken: 

1.  If  the  input  manning  on  any  card  is  negative,  that  card  is 

ignored.  The  offending  card  is  printed  along  with  the  mes- 
sage: NEGATIVE  MANNING  - CARD  IGNORED 

2.  If  there  is  no  corresponding  SWBS  value  for  an  input  SSI  value, 
the  input  card  is  ignored.  The  offending  card  is  printed  along 
with  the  j^ssage  ILLEGAL  SSI  - CARD  IGNORED 

3.  If  no  CMFM  has  oeen  defined  for  an  input  SWBS,  the  input  card 
is  ignored.  The  offending  SWBS  is  printed  along  with  the  message 
NO  PLANNING  MODULE  FOR  THIS  SWBS  - CARD  IGNORED 

4.  The  program  has  a limit  of  236  different  SWBS  values  for  the 
input  manning  profile.  If  there  are  more  than  236  values, 
execution  terminates  with  the  message 

TOO  MANY  SWBS  ELEMENTS  - EXECUTION  TEFMINATING 


2.8  File  Descriptions 

2.8.1  File  Descriptions  - Output 

Unit  b - See  the  example  in  Section  2.6. 

Unit  7 - Punched  cards 

The  calculated  CMFM  single-ship  repair  profile  is  punched  in  the 
following  format.  There  are  exactly  79  records  punched. 


Columns 

Descr iption 

1-4 

cwm 

5-14 

Manning  for  above  CMRM 

(right  justified) 

15-24 

Fraction  of  manning  in 

above  CMP4 

(always  four  decimal 

places  and  right  justified) 

2.8.2  File  Descriptions  - Input 

Unit  5 - Conversion  of  SSI  to  SWBS 

Input  as  many  records  as  required  in  the  following  format.  The  order 
is  immaterial. 

Columns  Description 

1-3  SSI  value  (right  justified) 

10-12  Coresponding  SWBS  value  (right  justified) 

Unit  8 - See  Section  2.5 

Unit  9 - Conversion  of  SWBS  to  CMEM 

Input  79  records  in  the  following  format.  The  records  must  be  ordered 
sequentially  by  CMIM.  SWBS  ranges*  which  comprise  the  corresponding  CMFM 
need  not  be  in  any  order  or  even  adjacent  on  the  card. 

Columns  Description 

1-4  EMFM 


7-  9 

11-13 

First 

SWBS 

range 

for 

above 

EMFM 

15-17 

19-21 

Second 

SWBS 

range 

for 

above 

EMIM 

23-25 

27-29 

Third 

SWBS 

range 

for 

above 

EMFM 

31-33 

35-37 

Fourth 

SWBS 

range 

for 

above 

EMFM 

39-41 

43-45 

Fifth 

SWBS 

range 

for 

above 

EMFM 

47-49 

51-53 

Sixth 

SWBS 

range 

for 

above 

EMFM 

55-57 

59-61 

Seventh 

SWBS 

range 

for 

above 

EMFM 

63-65 

67-69 

Eighth 

SWBS 

range 

for 

above 

EMFM 

71-73 

75-77 

Ninth 

SWBS 

range 

for 

above 

EMFM 

* 


2.10  Subroutine  Descriptions 

t 

j MAIN  PROGRAM  - 

MAIN  reads  the  conversion  of  SSI  values  to  SWBS  values.  All  SSI's 
are  converted  to  a single  SWBS  value  with  the  exception  of  SSI  860.  The 
following  breakdown  is  used. 

SWBS  Percent 

210  31.0 

830  35.0 

992  18.5 

99b  15.5 

This  breakdown  was  developed  through  the  analysis  of  departure  report 
work  descriptions  for  SSI  860  on  several  submarines. 

MAIN  also  reads  the  input  manning  profile  and  creates  and  writes 
both  a three  digit  and  a one  digit  SWBS  manning  and  single-ship  repair 
profile.  Error  checking  is  also  performed  for  error  codes  1,  2,  and  4 
as  described  in  Section  2.7.  MAIN  concludes  by  calling  subroutine  CMIM 
to  calculate  the  CMFM  single-ship  repair  profile. 

SUBROOTINE  ERROR  - 

ERROR  is  called  to  print  the  messages  described  in  Section  2.7. 
SUBROLrriNE  CMPM  - 

CMPM  reads  the  conversion  from  ship  work  breakdown  structure  to 
depot  maintenance  planning  module.  The  DMPM  single-ship  repair  pro- 
files are  then  computed,  printed,  and  punched.  Error  checking  is  per- 
formed for  error  code  3 as  described  in  Section  2.7. 


2.11  Glossary 


ARRAY (X) 

ARRAY  1 (X) 
I 

I CODE 
IDEE 
IIXW 
nxMi 
IDLM2 
INDEX 
IVALUE(X) 

II 
12 

13 

14 
J 
K 

MAN 

MAN DAY 
MODULE 

MOm  (X) 


Depot  maintenance  planning  module  nimber 
corresponding  to  ship  work  breakdown 
structure  value  X 

Contains  nimber  of  X^^  depot  maintenance 
planning  module 

Counter  of  nimber  of  ship  work  breakdown 
structure  values  with  non  zero  manning 

Error  code  value 

Variable  used  to  format  printout 

Flag  set  when  an  error  occurs 

DumtTiy  var  iable 

Dummy  variable 

Particular  ARRAY (X)  value 

Total  manning  of  X*"^  ship  work  breakdown 
structure  value  with  non  zero  manning 

Multi-purpose  index 

Multi-purpose  index 

Multi-purpose  index 

Multi-purpose  index 

Variable  used  to  format  printout 

Variable  used  to  format  printout 

Manning  for  single  input  card  - part  of 
the  profile 

Same  as  MAN 

Depot  maintenance  planning  module  number 
value 

Manning  for  depot  maintenance  planning 
module  value  X 
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MODPRO(X) 


Ratio  of  MOCM(X)  to  TOTAL 


^♦^0D6 

i PROR(X) 

I 

PHOFIL(X) 

RANGLUa) 

SSI 

SWBS(X) 

TOTAL 
WBSM  (X) 

WBSMAN(X) 


Nunber  of  depot  maintenance  planning 
modules 

Ratio  of  WBSM(X)  to  TCTAI. 

Ratio  of  WBSMAN(X)  to  TOTAL 

Contains  up  to  nine  ship  work  breakdown 
structure  value  ranges  which  compose  a 
depot  maintenance  planning  module 

Ships  system  index  value 

Corresponding  ship  work  breakdown  struc- 
ture value  to  SSI  value  X 

Cumulative  slbti  of  all  MANDAY  values 

Cumulative  sun  of  all  MANCAY  values  for 
one  digit  ship  work  breakdown  structure 
value  X 

Cumulative  sum  of  all  MANDAY  values  for 
three  digit  ship  work  breakdown  structure 
value  X 


2.12  Program  Listing 


The  following  eleven  pages  contain  listings  of  SUBPRO  (pages  31-36) 
and  SURFPR  (pages  37-41) . 
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SL'BPRO 


C 

C 3O0r.PA«1  TO  CONVrPT  INPUT  S«;i  doOFIlF  INTO  SNA'-  PPOFILF 

r 

r,  PFouiPfn  pap»netfp  capo  input  t';  on  unit  5 
c 

C INPUT  PPOFILF  is  on  unit  A fqphAT  AS  FOLLOMSI 
C COLUMNS  1-5  S'l  NUMPFP  (PK.mT  AOJJSTEO) 

C COLUMNS  6-15  MANWOUP'  (OP  MANOATS,  MUST  BE  CONSISTENT  MOMEyrp) 

peal  ppOF (B) /q* 0 . / ,mbsm t q» /q» 0, / 

C COPPSPONOING  TO  THE  SSI  (PIGHT  aOJUSTFOI 

C the  OPOEP  of  the  capos  IS  I'-lATrpi4L 

c 

0 OUTPUT  MILL  BE  PUT  ON  UNIT  6 

c 

peal  “ANOAy,MPSMANtl00O)/1000»0./.TOTAL/0./.PPOFIL(1000) 

INTEGEP  SSI,SM3'(lCOO)/10aO»0/,IVALUE(500t 
C IMTIALI7E  CONVEPSION  APPAY  FPQM  PAPAMFTFP  INPUT 
1C  PEAO  (S,20.ENn-50)  SS I . SM BS ( SS 1 1 
^0  FOPhaT  (I5,6X,I5> 

GO  TO  1C 

C initialize  EPPOP  flag 
50  inuM  : e 

C PEAO  INPUT  SSI  profile 

1.0  PEAO  (8  ,50.FNO=70»  SSI,  MAN 
SO  FOP-AT  (I5,ZY,IA) 

MANOAY  = MAN 

C EPPOP  CHFCK  FPP  MINUS  MANOAY  OP  ILLEGAL  SSI  VALUE 
IF  (MANOAY. LT. 0. t call  FppO P ( 1 , I OU M, SS I , MA N I 
IF  (SMBS  (SSI » .EO. 0 I CALL  EPPOR (Z . I 0 UM , SS I . M AN ) 

IF  (lOUM.NE.O)  GO  TO  50 

c ikcpfhent  total  manoays 

total  = total  ♦ MANOAY 
C SSI  860  IS  A special  CASE 

IF  (SSI. EO. 8601  GO  TO  60 
C increment  manoays  fop  FACH  SMBS 

M8SmAN(  SM0S(SSin  * MPSMAN(SHBS(SSin  ♦ MANOAY 
GO  TO  UO 

C SPLIT  SSI  860  TO  SMBS  ?10,850,qq? 

60  MBSMAN(?10)  = MnSMAN(ZlO)  ♦ .51»MANOAY 

MRSMAN(850)  = M0SMAN(85O1  * ,55»MAN0AY 

wnSMANiqqz)  = MBSMANtqqzi  » .i85*manoay 

WBSMAN(q861  » MBSMAN(q86l  ♦ .155»MAN0AY 

GO  TO  (.0 

C calculate  fraction  of  manning  in  each  SMBS 
ZO  00  80  II  = 1,1000 

80  PPOFiLdll  = MBSMAN(  I II /TOT  AL 
C PRINT  OUTPUT 
I = 0 

00  »5  11*1,1030 

IF  (MBSMANd  ll.EO.0.1  GO  TO  8S 
1*1*1 
IVALUEdl  » II 
85  CONTINUE 

IF  d.r,T.?36l  CALL  EPPOP  H , I OUM,  I OUMl , lOU  M?  ) 

K * MOOd,5qi 
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SUBPRO  cont'd 

IDfL  • 1 

ir  (K.fO.O>  lOEL  « 0 

J • 1/59  ♦ lOfL 

IF  (J.FQ.l)  MOITE  «6,91t 

IF  (J.EQ.?)  W»1TE  (6.9?» 

IE  tJ.EO.3l  K»ITE  16,93) 

IE  tJ.EQ.*,)  MPITE  (6.94) 

9t  EO»H*T  ( IMl, 1 (4M5«ns, 3*. run* KNI WC,5» ,5M»*TI0,  6*) ) 

9?  EOBMAT  tlMl,  2t4MS«0S,3*,7M*t»NNING,5)<,5MB»TIO,6X)  ) 

93  EO«W»T  t IMl,  3 (4HS**9S,  3»,  rMMANNIMG,5)l  ,5MR»TI0, 6X)  ) 

94  EORWAT  (lMl,4(4HSNeS.3*,7MHAN)tING,5*,5MBATI0,6*)  ) 

CO  TO  t95,9« ,101,104) ,J 

95  00  °6  II  « 1 . I 

96  BPITE  (6,97)  I V ALUE  t 1 1 ) , »«  SH  A M I WA  L UE  ( 1 1 ) ) , PROE  I L ( I V AL  l)E  1 1 1 ) ) 

97  FOBWAT  tlM  , 4 ( 1 4 , E 1 0 . 0 , E 1 0.  4 , 6* ) ) 

CO  TO  110 

98  IE  (K.EO.O)  X • 59 

00  99  11=1,5 

99  MPITE  (6,97)  I V AL UE ( 1 1 ) . BBSHAN) IVAL UF 1 1 1 ) ) ,ppOEIL(  IVALOE (II ) ) 

» .IVAluEtll*  59)  .BBShan ( I value ( II ♦ 5 9 ) ) , PPO El L t T VAL UE  ( 1 1 ♦ 59)) 

IE  (X.EQ.59)  CO  TO  llO 

I?  = X ♦ 1 

00  10  0 II  • I?. 59 

IOC  WRITE  (6,97)  I V A LUF  ( II  ) , W9  SH  A N 1 1 VA  L UE  ( 1 1 ) ) , P POE  IL  ( I W»L  UE  ( I 1 ) ) 

CO  TO  110 

101  IE  (X.EO.O)  X « 59 
00  10  2 II  • 1 , X 

1C2  MPITE  (6,97)  IVALUEt II ) , weSwANtIVALUE ( II ) ) ,PPOFIL( I V»LUF(1 1)  ) 

A .IVALUElIl*  59)  ,H0SWAN (IVALUE til*  5 9 ) ) , PROF  I L ( I V AL UE ( 1 1 ♦ 59)) 

9 ,IVALUE(I1*  11 8)  , weSWANl  IVALUE ( 11 ♦ 118) ) .PPOEIL (IVALUE ( 1 1*  118)) 
IE  (X.EQ.59)  CO  TO  110 
12  = X ♦ 1 
00  103  ri  * 12,59 

103  HPITE  (6,97)  I value ( 1 1)  , W95WAN( IVALUE ( 1 1 ) ) ,OPOE lu ( IVAIUE (I  1 ) ) 

A .IVALUEdl*  59)  .wnSMANdVALUE  (II*  5 9 ) ) , P PO  El  L ( I V AL  UE  d 1 ♦ 59)) 

GO  TO  110 

104  IE  (X.EO.O)  X s 59 
00  105  II  = 1,X 

105  WPITE  (6,97)  IV  ALUE  ( II ) , W95MANdVALUE  ( II  ) ) ,PPOE  IL  ( IVALUE  (1 1 ) ) 

6 .IVAlUEdl*  59)  .WBSWANdVALUE  dl*  5 9 ) ) , PPOE I L d VAl  UE  d 1 ♦ 59)) 

9 .IVALUEdl*  118)  .WBSMANdVALUEdl*  1 18  ) ) , PPO  El  L d V AL  UE  ( 1 1 ♦ 118)) 

C .IVALUEdl*  177)  ,WBS(*AN(  IVALUE  (II  » 1 77  ) ) , PPO  E I L ( I V AL  UE  (1 1 ♦ 177)) 

IE  (X.E0.59)  CO  TO  no 

12  = X ♦ I 

00  106  II  = 12,59 

116  WPITE  (6,97)  I value t Tl)  ,W0SHAN( IVALUE (I  1 ))  .PPOFILd value (I  1 ) ) 

A .IVALUEdl*  59)  .WBSMAN  ( IVALUE  (II*  5 9 ) ) , P POE  I L (I  V AL  UE  (1 1 ♦ 5 9 ) ) 

9 .IVALUEdl*  118)  .WBSMANdVALUEdl*  1 1 8 ) ) , PPOE  I L (I  V AL  UE  ( 1 1 ♦ 1180 

110  CONTINUE 

C calculate  manning  in  each  MAJOR  SWBS  GROUP 
00130  12=1,9 

13  = 10  )*I2 

14  = 13  ♦ 99 

00  13C  II  = 13,14 

WPS“(I2)  * w9SM(I2)  ♦ WBSMANdl) 

1 3C  PPOEd?)  = PPOE(l?)  ♦ PROEILdl) 

C PRINT  OUTPUT  EOP  THE  MAJOP  GROUPINGS 
WRITE  (6,91) 

no  14C  II  * 100,900,100 
12  = 11/100 
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SUBPRO  cont'd 


H.0  MSITE  J6tqr»  II >MnSH( I?) .PROF (I7| 

WRITE  (6, 145)  T0T»L 
145  F0RW»T  T5*,10 T1M-) .0 ) 

C PRINT  OM9N  OUTPUT 

C»LL  OMPN (MRSMiN, PROF IL ) 

<;top 

ENO 


SUBPRO  cont'd 


subroutine  ERROB  tlCOOE.IOUR.Il.IZI 
lOUN  = 1 

GO  TO  tlO.SO.50  .70) .ICOOf 
10  MRITE  16.70)  II. I? 

70  F0RH4T  IlM  . I 3.SX.I8. 10*.  31HNEC»TI)rE  H4NNIN6  - CORD  IGNORED) 
RETURN 

30  MRITE  <6,<.0)  11.17 

t.0  EORNOT  (IH  . 13, 3X, 18,10*. 76HIUEG0L  SSI  - C»RO  IGNORED) 

RETURN 

50  MRITE  (6.60)  II 
60  FORHOT  (IM  .13.5*. 

I 47MN0  plONNING  nodule  for  TMIS  SMBS  - CORO  IGNORED) 

return 

70  MRITE  (6,80) 

80  EORHOT  (IM  .I.8MTOO  MONT  SMBS  ELEMENTS  - EXECUTION  TERMINOTING) 
STOP 
END 


I SUBPRO  cont 'd 

I 

SUnsOUTINf  OHPM ( MPSHAN , PPOFI L ) 

c 

C SURPODTINr  TO  CONVERT  SMPS  PROPRE  TO  OmPM  ppOPRP 
C 

C CALLING  APGUEMENT':i  MBSMANd*  TOTAL  HANNING  POP  G NBG  I 
C PPOPRin  PPACTION  OP  HOP*  HTThIN  GNBS  I 

C 

C OUTPUT  IG  ON  UNIT  6 
C 

C INPUT  R ON  UNIT  q 

c 

C input  POPMATT  COLG  1 - U DEPOT  HAIMTENANCE  PLANNING  hOOULP 

C COLS  7-0  11-13  PIPST  GNBS  RANGE  POP  ABOVE  OHPH 

C COLS  15-17  19-31  SECOGj  SNBS  pANGp  POP  ABOVE  OHPh 

C COLG  33-35  ?7-’0  TMipr,  SNBS  panGp  POP  ABOVE  OHPh 

C COLS  31  - 33  35-  3 7 POUPTm  SMBS  panC.p  POP  ABOVE  Ohph 

C COLS  30-Nl  43-45  PIPTm  SPB'  PANGP  POP  ABOVE  OHPH 

C COLG  47-49  51-53  GIXTH  GHBS  RANGE  POP  ABOVE  OHPH 

C COLS  55-57  59-61  SEVENTH  EHBS  PANGp  POP  ABOVE  OHPH 

C COLS  63-65  67-69  EIGHTH  'HOS  PANGP  P CP  ABOVE  OHPH 

C COLG  71-73  75-77  NINTH  GHBS  RANGE  POP  ABOVE  OHPh 

C HOOULtS  HUST  BE  INPUT  IN  NUNEPICAL  OPOE® 

C SHOP  RANGES  NEEO  NOT  BE  IN  OPOEP  0®  TOGETHER  ON  THE  CAPO 
C 

peal  MRGMANdOOOl  .PPCPILT  100  0 ) ,HOOH«  100l/100»0./ 
peal  hoOPPO) 100) /lOO'O. / 

INTEGER  PANGE(1S).APPAYT1000)/1000»0/,APPAV1(100) 

C initialize  hOOULE  counter 
NHOOG  = O 

C INCPEhenT  HOOULP  COUNTER 
10  NHOOS  = NHODS  ♦ 1 
c PEAo  HonuLE  oepinitiok  input  capo 

REA9  (O,30.ENO*E0)  HOOULE, RANGE 
30  POPHAT  ( I4.3X ,9( I3,1*,I 3, IX) ) 

C APPATldt  CONTAINS  THE  OHPH  NUHBEP  POP  INOEX  I 
APPAYl ( NHOOS)  = HOOULE 

c APRAY(I)  CONTAINS  AN  INOEX  POINTING  TO  THE  OHPH  POP  GHBS  I 
00  40  14  = 1 , 17,3 

IP  (RANGE (14 ) ,EO.O)  GO  TO  40 
13  : RANGE(I4) 

13  = PANGE(I4  ♦ 1) 

00  50  11=13,13 

30  APRAY(II)  = NHOOS 
40  CONTINUE 
GO  TO  10 

C PINALIZE  NUHBEP  OP  HOOULES 
50  NHOOS  • NHOOS  - 1 
C POPH  OHPH  PROFILE 

00  60  11*1,1000 

IP  (HBSHAN( 1 1 > , EQ. 0. ) CO  TO  60 
INOPX  = APRAY(Il) 
lOUH  = 0 

IP  (INOEX, EO,0)  CALL  E PROP  ( 3 , I OUH, 1 1 , IP  I LL  ) 

IP  (IOUH,NE. 0)  GO  TO  60 
MOOHTINOEX)  * HOOH(INOEX)  ♦ HBSMAN(Il) 

MOOPPO(INOEX)  = HODPPO(INOEX)  ♦ PPOPIL(Il) 

60  CONTINUE 
C PRINT  OHPH  OUTPUT 
NPITE  (6,70) 
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SUBPRO  cont'd 

’C  FOPm»T  t 1M1  , ? (UHOHPH,  3*  , 7HM4  NN  inf,  , ? t , FmP»T  I n,  e*  n 
< = mod ( NMOnS,59) 
on  9 0 11  « 1 . X 

WPITP  (f>,80l  APPAYl(Il),MOOH(Il),HOOPPn(in 
> .APPAYidi  ♦ ?q),iooM(ii  ♦ 5q),nonppnnt 

80  FOP-AT  ( IM  , ? ( II.  ,F1  0.  0 . FI  0.  U,  fi*l  I 
90  CONTINUF 
I?  - X ♦ 1 

DO  IOC  II  « I?, 59 

IOC  MPITei6,80)  APPAYl ( II  t , HOOM ( II  I , HOOPPOt I 1 t 
C PUNCH  OHPM  OUTPUT 

00  1?C  II  = l.NMOOC 

wpiTPd.iio)  AppAYKin.MnoMdii.MOOPPOiin 

110  FOPHA^  (II*  ,F10  . C . P 1 0.  I.) 

1?0  CONTINUE 
PPTUPN 
fnp 
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SURFPR 


C 

C PPOr,B«H  TO  point  SNBS  PPOFILE 

c 

C INPUT  PPOriLP  IS  ON  UNIT  B FORM»T  »S  FOLlONSl 
C COLUMNS  1-J  SW0S  NUHflcp  IPISMT  *OJUSTEOI 

C COLUMNS  f.-ll  M4NHOUPS  (OO  M*Nn»rS,  MUST  BE  CONSISTENT  moNFVEPI 

C COOOSPONOIN&  TO  TMP  SMBS  (RIGHT  »njUSTEO» 

C the  ooofo  OP  the  C*pOS  IS  Immktprul 
c 

C OUTPUT  mill  Rp  put  ON  UNIT  6 

c 

PF4L  POOP  (0  I /q*0  . / ,WBSM  ( 0) . / 

pp»L  H3NP4Y, HBSH4N( 10001 /IOOO’0./,TOT»L/0./, PROP ILI 10001 
INTFGFO  I V«L  UP  ( P OC  I . Sw9S 
C INITI4LI7E  EPPOO  FLAG 
30  inUM  = C 

c PPAO  input  SMPS  poopile 

40  PE40  ( B , 50.F NO= 70  I SMBS. MAN 
50  FOPhat  (I3,?»,I»I 
MANDAT  = MAN 

EPPPP  CHPC5  PCP  MINUS  MANOAT 

IP  I MANOAT .L T . 0 . ) CALL  EPPOP ( 1 , lOUM, SMBS , “A Nl 
IP  ( inUM.Nf . 0)  GO  TO  30 

INfPEMPNT  TOTAL  MANOAYS 
TOTAL  = total  ♦ HANOAY 
INCPEHEnT  mANpays  pop  paCh  SMBS 

MPS"AN(SMBSI  = MBSMANISMpPl  ♦ MANpAY 

GO  TO  40 

70  OO  "0  11*1.1000 

50  PPOPIUID  = hO'Tmani  1 1 ) /*OT  AL 

PRINT  OUTPUT 
I = 0 

no  "5  11=1.1000 

IP  (MP'-MAN(Il)  .FQ.O.)  GO  TO  55 
1*1*1 
IVAlUp(I»  = II 
55  CONTINije 

IP  (I.GT.?36>  call  FooOp  ( 4 , IDUM,  iOUmi  , ioUm?  I 
< = MOO  ( I .5  PI 
IOEl  * 1 

IP  (K.FO.OI  I^EL  = 0 

J = I/5P  * inSL 
IP  (J.EO.l)  MPITF  I6.P1I 

IP  (J.EO.?)  MPITr 

IP  (J.F0.3I  MPITF  (6,931 

IF  (J.EQ.4I  MOITP  (6,941 

91  POPMAT  I IHl , 1 immSMBS. 3 Y, 7HMANNI NG. 5* , FMPAT I 0, 6Y I I 
9?  POP-AT  ( IMl,  ? f4HSMnS,  3Y, 7HMANNING. SY ,5HPA T I 0, 6Y)  ) 

03  rOP-AT  ( IHl.  3 (4HSM9S, TY , 7HMANN ING.5 Y .KHPAT I 0, 6YI  1 

94  POPMAT  ( IHl , 4 (4HSMPS,  3 Y , 7HMANNI  NG.  5 Y .5MPATI  0,  6YM 
GO  TO  ( 95 .95 , 10  1 , 10  4)  , J 

95  no  OG  11*1,1 

96  MPITF  (6,971  IV  ALUE  r II  I . MB'-MANI  IVAlUE  (I  in  . PROP  IL  ( IVAlUF  (I  1 1 I 

97  POPMAT  (IH  ,4(I4,PlQ.C.P10.4,6Yn 
GO  TO  110 
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SURFPR  cont'd 


IF  (X, 

,EO.  01 

X « 59 

00  99 

11  * 

1 . X 

HOI  TE 

(6.97) 

IVALUE  (I1I,i«EHAN(IVALUE(I1I)  .PPOFIL  ( I value  (I  1 ) I 

* .iy*LUf(ii*  S9»  ,«nsM«N(iv*LU‘’ (M*  S9ii  .pooFimwtuiE  (ii«  S9n 
IF  (K.E0.591  CO  TO  no 
I?  = X ♦ 1 
on  100  II  • 12,50 

100  WPHE  (6.971  I V*LUe  ( Il»  , IV»LUF«  II  n ,P»OF  IL(  IVOLUF  (I  1 I ) 

GO  TO  no 

101  IF  (X.EO. 0)  5 » 59 

00  102  II  « l.K 

102  WPITF  (6,97)  IV»LUE  < lit  , WBSlINC  IV»LUE  ( in  I .PPOFIl  ( I v»lI)F  (II ) t 
A .lyALUEdl*  59t  .MOSMANdVALlJF  (I1»  5 9 II  . P PO  F I L ( I V AL  UE  (1 1 ♦ 5911 

0 .IVALUEdl*  1181  ,Me5MAN(I»ALUEdl*  1 1 8 1 I , P PO  F I L dV  AL  Uf  ( 1 1 ♦ 11811 

IF  (X.F0.59I  CO  TO  no 

12  = X * 1 

CO  107  II  • 12,50 

103  MPdE  (6,97)  IV  ALUf(  III  ,MBSHAN(IVAl  UE  (II  n .PPOFILdVALUF  (III) 

A .IVALUEdl*  591  .HBSMANdVALUF  (II*  5 9 1 I , PPOFI  L ( I V AL  UE  (1 1 * 5911 

GO  TO  no 

104  IF  (X.EQ.O)  X » 59 
00  135  , T1  - 1 ,X 

105  wpITE  ('6.971  IVALUE  (II  I .KBEHANCIVAlUE  (I  1 1 I ,PPOF  IL  ( IVALUE  (I  1 1 I 
A .IVALUEdl*  59)  .MRSXANdVALUF  (II*  5 9)  I , PPO  F I L d V AL  UE  ( 1 1 * 59)1 

■>  .IVALUEdl*  118)  .KBEHASdVALUEdl*  1 1 8 1 ) , P POFI L dV  AL  UF  (1 1 * 118)) 
r .IVALUEdl*  177)  ,HB<;«AN(  IVALUF  ( II*  1 771  I , P pOFIL  ( I V AL  UF  ( 1 1 * 17711 
IF  (X.EO.59)  CO  TO  no 

12  = X * 1 

00  106  II  = 12.59 

106  MPITE  (6,97)  IV  ALUE  ( II  ) ,H8F>(A  NdvAL  UE  (II  ) ) .PPOFTL  dVALUF  (1 1 1 I 
A .IVALUEdl*  59)  .WBSMANdVALUE  (II*  5 9 ) ) , PPQFI  L ( I V AL  UF  (1 1 ♦ 59)) 

“ .IVALUEdl*  118)  .HREXANI  IVALUEdl*  11 8 ) I , PPO  FI  L ( I V A L UE  ( 1 1*  1181) 

no  continue 

calculate  NANNING  IN  EACH  HAJOo  5HRS  GPOUP 
DO  130  12*1,9 

13  = 100*12 

14  r 13  * 90 

00  13C  II  = 13,14 

WRE“(I2)  = HBEH(I2)  * MflSMAN(Il) 

130  PPOF(I2)  = PPOFd?)  * PPOFILIIll 
OPINT  OUTPUT  FQO  the  majOP  GPOUPINGS 
HPITE  (6,91) 

00  140  11*100 ,900. ICO 

12  = 11/100 

140  WPITE  (6.97)  I1,MRFN(I2)  .PP0E(I2I 
MPITE  (5,1451  total 
145  FOPXAT  (EV.IO  (lH-),/.5V,F10  .0) 

POINT  OHPM  OUTPUT 

CALL  OHPM  ( wq$k(j  N,  ppoF  IL  I 

ETOP 

END 


i 

SURFPR  cont'd 


SUBSOUT INE  fRPoe  iiconf  . irKiH, II , I?) 

IDUX  = 1 

GO  10  ( 10 , 3C , so  , 70  I , ICOOF 
10  MPITE  tf,,?0)  11,1? 

’0  FOPH4T  (IH  , M,  3*.  I 8.  1 0*,  31  hmFC*T  IVF  BANNING  - CAPO  ICNOOFO) 
return 

30  NPITE  (6.401  II. I? 

40  FORNAT  (IM  , I 3,  3X  , 18,  10*.  ?6HI  LLEGAL  SSI  - CAPO  IGNORE'') 

RETURN 

50  NPITE  (6,60)  II 
60  FOPHAT  (IM  ,I3,5X, 

A 47HNO  planning  NOOULE  FQP  TBIS  SNBS  - CAPO  IGNOpFO) 

return 

TO  NPITE  (6,80) 

80  FORBAT  (IH  .48HT00  BANY  SW0S  flEBENTS  - EXECUTION  TFPbinatinG) 
STOP 
END 


SURFPR  cont'd 


<:ilBtO"’INr  OMP  H ( WR^Mi  N , P»0  F I L ( 

SURPOrTINP  TO  CONVFOT  SWPF  profile  to  pmpm  ppoFILF 

CaiLlNf.  APGUFBENTS1  MPSBANdt  total  BANNINF,  FOP  F I 

ppofil(I)  fraction  of  mopK  RITmis  SMRS  I 

OUTPUT  IS  ON  UNIT  F 
INPUT  IS  ON  UNIT  q 

input  fopnati  colS  1 - <•  DEROT  naintenancf  Planning  mooulf 

COLS  7-Q  11-13  first  SMBS  RANGE  f OR  ABOVE  OmPH 
COLS  lS-17  iq-?l  SECOND  SMBS  RANGF  FOR  ABOVE  OHRH 

COLS  ?3-?S  ?7-->9  TMIPO  SMBS  PANGf  for  ABOVE  DmRn 

COLS  31-33  35-37  FOJPTH  SMBS  RANGE  poR  ABOVE  pmpn 

COlf  3B-41  43-45  FIFTH  $MBf  RANGE  FQP  ABOVE  OMPM 

COLS  47-40  51-53  sixth  f^rS  RANGf  FOP  ABOVE  DHP- 

C^LS  55-57  50-51  ffvFNTm  SMBS  RANGf  FOR  ABOVF  OMPh 

COLS  63-55  67-5B  EIGHTH  SMBS  RANGE  FOR  ABOVF  OhPm 

COLS  71-73  75-77  ninth  SMBS  RANGf  FOP  ABOVF  0“P“ 

HCOULFS  host  be  input  IN  NUMERICAL  ORDER 

SWBS  RANGES  NFEO  NOT  OF  IN  OROfp  OR  TOGETHER  ON  THE  CAPO 

PFA.  HBSMANTlOOOl  .ppOFIL(IOOO)  .hOOh«100)/100»0./ 
pfSl  “OOPRO ( 100 t / 100*0  . / 

INTFger  RANGFn«>,ARRAx(1000t/10?0*0/,APPAri  llOOT 

INITIALI7F  mooulf  COUNTfr 

NHCbS  = 0 

INCPFHfnT  module  counter 
10  NMODS  F NMOOS  * 1 
Rfao  mOCULE  OFFINITICN  INPUT  cjro 
PFA-'  ( 0 , ,F  NOf5  0 I MOOULF, range 
roRHA*  ( I 4 , ? X , q ( I 3 , 1 X , I 3 , IX  )) 

ARRAri(I)  CONTAINF  Thf  omcm  NijMBfR  rOR  INDEX  I 
A OR  t Y 1 C NMOOS  ) F MflBuLr 

APRAY(II  CONTAINS  AN  I N OF  X POINTING  TO  TmF  CMFM  FOR  F^gq  j 
00  4D  14  r 1 , 17,  ? 

IF  (RANGE  (14  I .EO.C ) GO  TO  43 
I?  ^ RANGE(I41 
13  = PANGF(I4  ♦ 1) 

CO  30  II  F 17,  13 

T:  array (III  r NMODS 
40  continue 
GO  TO  ID 

finalize  number  of  hooulfs 
50  NmOBS  f NMOOS  - 1 
FORM  OMPM  PROF  IL  E 

no  E D 1 1 F 1 , 1 000 

IF  ( MPCMANd  n . FO.  3.  ) GO  TO  50 

INOFX  = ARRAY(Il) 

inu“  F 0 

IF  (INDEX. EO.O)  call  error ( 3 , IDUm, 1 1 , if ILl ) 

IF  ( iriJM.  nE.  0)  GO  70  60 
mO0m(INDEX1  I MODM(INOFX)  * MBSMAN(Il) 

MDORROI INDEX)  F MODPOO(INDEX)  ♦ PPOFIL(Il) 

6 0 CONTIniie 
PRINT  OMPM  OUTPUT 
MRITE  (6,70) 

AO 


! 


SURFPR  cort'd 


TC  FORMAT  ( IHl,  ? ((.MOMPM,  IK,  7MMAMNINC,5»  ,5MU»Tin,  6*1  » 

K = HOO ( NHOnS,5R) 
on  Q?  I I * 1 , K 

WPITt(6,80)  AORAYKIll,  HODI  (III,  HOOPROU  1 I 
A .APUAYidi  ♦ sqi.HooHdi  ♦ 5qi,MOOPPOdi  ♦ 501 

a:  format  (ih  , ?di.,Fio.o,Fn. 4,6*11 
qc  rONTINUF 
I?  = * ♦ 1 
PC'  10:  u * i?,6q 

nc  HPiTE(6,eoi  APOAYi ( It ) ,Hon>i  di  I ,Mooppodii 

PIINTH  OmPM  output 

no  i?c  II  = uNMoo*" 

WPdE(T,110l  ARPAYldn,MOOM(Tll,MOnPPO(Ill 
tto  format  ( 14  , FI  0. 0 , F 10.  41 

1 ’0  CONTINLIF 

RF  tor  M 
FNO 


t 


3.0 


STATS 


3.1  Function 

The  function  of  STATS  is  to  provide  assistance  in  combining  the 
DMPM  single-ship  repair  profiles  produced  by  SURFPR  or  SUBPRO  for  a 
given  ship  class  (or  combination  of  ships)  into  a DMPM  combined-ship 
repair  profile  by  producing  various  averages  and  statistics  for  the 
user  to  consider.  All  single-ship  profiles  which  are  to  be  combined 
are  input  to  STATS.  As  described  in  Section  2.1,  these  profiles  con- 
sist of  the  fraction  of  the  total  manning  expended  for  each  CMFM.  The 
output  consists  of  the  following  information  for  each  OIFM. 

1)  The  minimum  fraction  value 

2)  The  maximum  fraction  value 

3)  Hie  range  of  fracLion  values 

4)  The  median  of  the  fraction  values 

5)  Ihe  mean  of  the  fraction  values 

6)  The  average*  excluding  the  maximum  fraction  value 

7)  The  average*  excluding  the  minimum  fraction  value 

8)  The  average*  excluding  the  most  extreme  fraction  value 

9)  The  average**  without  the  minimum  and  maximum  fraction 
values 

10)  A selected  average 


* There  must  be  at  least  three  single-ship  profiles  input. 

**  There  must  be  at  least  four  singl€?-ship  profiles  input. 
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The  selected  average  is  computed  in  the  following  manner.  If 
either  one  or  two  CMfM  single-ship  repair  profiles  are  input,  the  selected 
average  for  each  CMfW  is  the  mean  of  its  fraction  values.  For  exactly  three 
input  single-ship  profiles,  the  selected  average,  for  any  CMfW,  is  either 
the  mean  or  the  average  without  the  most  extreme  point.*  In  this  case,  the 
program  looks  at  the  absolute  value  of  the  differences  between  1)  the 
maximum  minus  the  mean,  and  2)  the  mean  minus  the  minimum.  If  the  above 
absolute  difference  is  greater  than  an  input  threshold,**  the  selected 
average  is  the  average  without  the  most  extreme  point.  Otherwise  the 

selected  average  is  the  mean. 

For  four  or  more  input  CMIW  single-ship  repair  profiles  the  selected 
average  is  computed  as  follows.  If  the  above  described  absolute  difference 
is  less  than  the  input  threshold,**  then  the  selected  average  is  the  mean. 
Otherwise  the  most  extreme  point  is  ignored  and  a second  absolute  differ- 
ence is  computed  as  described  above,  but  from  the  reduced  sanple.  If  the 
second  absolute  difference  is  less  than  another  threshold,**  the  selected 
average  is  the  average  without  the  most  extreme  point.  Otherwise  the 

selected  average  is  the  average  without  the  two  most  extreme  points  (of  the 

original  data  set).  Note  that  the  sum  of  the  selected  average  values  over 
all  CMPM’s  need  not  be  one.  The  following  gives  some  examples  of  the 
computation  of  the  selected  average  from  five  numbers  (i.e.,  this  would 
imply  that  five  CMFM  single-ship  profiles  were  input  to  STATS) . 


* Note  that  for  any  one  CMFM  the  selected  average  may  be  the  average  of  the 
fraction  values  for  that  CMFM  and  for  another  the  selected  average  may  be 
the  average  without  the  most  extreme  point;  i.e.,  the  CMFM's  are  treated 
independently. 

**These  thresholds  were  both  set  at  .0500.  Little  sensitivity  to  change 
in  this  value  was  noticed. 
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U?t,  for  all  examples,  the  threshold  to  exclude  the  most  extreme 
point  be  .050,  and  the  threshold  to  exclude  the  second  most  extreme 
point,  be  .045. 

Case_l 

Let  the  fraction  values  for  a given  CMfW  be  .05,  .10,  .11, 

.12,  .25 

The  mean  is  .126 

The  maximum  minus  the  mean  is  .124 
The  mean  minus  the  minimum  is  .076 
The  absolute  difference  is  .048 

Since  .048  < .050,  the  selected  average  is  .126,  i.e.,  the  mean 

Case  2 

Let  the  fraction  values  for  a given  CMEM  be  .01,  .10,  .11, 

.12,  .35 

The  mean  is  .138 

The  maximum  minus  the  mean  is  .212 
The  mean  minus  the  minimum  is  .128 
The  absolute  difference  is  .084 

Since  .084  > .050,  the  most  extreme  fraction  value  is  discarded 
and  the  above  computational  procedure  is  repeated  for  the  four  remain- 
ing data  points,  using  the  second  threshold  value,  .045.  In  this  case,  the 
most  extreme  fraction  value  is  the  maximum,  .35.  Then,  considering  only 
the  four  remaining  values  (.01,  .10,  .11,  and  .12), 
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The  mean  is  .085 


The  maximum  minus  the  mean  is  .035 
The  mean  minus  the  minimum  is  .075 
The  absolute  difference  is  .040 

Since  .040  < .045,  the  selected  average  is  .085,  the  mean  of  the 
reduced  data  set,  i.e.,  the  average  of  the  original  data  set  without 
the  most  extreme  point. 

If  the  threshold  to  exclude  the  second  most  extreme  point  had 
been  .038,  then  since  .040  ^ .038  the  selected  average  would  have  been 
.11,  the  average  of  the  reduced  data  set  without  its  most  extreme  point, 
i.e.,  the  average  of  the  original  data  set  without  the  two  most  extreme 
points. 


I 
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3.2  Importance 


This  program  served  an  interface  function  between  SUBPRO  (SUR- 
FPR)  and  REPROF.  It  aided  in  sunmarizing  the  multitude  of  data  output 
from  SUBPRO  and  SURFPR  into  sets  of  unnormalized  UMF*^  combined-ship 
repair  profiles  for  various  groups  of  ships.  These  unnormalized  pro- 
files are  output  by  STATS  on  punched  cards  and  are  subsequently  input 
to  REPROF  for  normalization  and  creation  of  the  finalized  IMW  repair 
profiles.  The  output  of  STATS  consists  of: 

1)  A printed  list  of  input  DMPM  single-ship  repair  profiles  to 
1)  serve  as  a permanent  record  of  those  profiles  which  were 
to  be  combined  and  2)  serve  as  a convenient  reference,  when 
potential  changes  to  the  selected  average  were  being  consid- 
ered prior  to  input  to  REPROF  for  normalization. 

2)  A printed  list  of  those  averages  mentioned  in  Section  3.1 
which  serves  as  backup  for  decisions  to  maintain  or  change 
the  final  selected  average  before  input  to  REPROF  for  norm- 
al ization. 

3)  A punched  card  version  of  the  selected  average  which,  with 
(or  without)  modifications,  is  ultimately  input  to  REPROF 
for  normalization. 

Modifications  to  the  selected  average  before  input  to  REPROF  were 
generally  carried  out  according  to  the  following  procedure.  Only  those 
tWFM's  where  the  range  of  values  was  greater  than  .0500  were  even  consid- 
ered for  changes  to  the  selected  average.  The  rationale  for  this  was  that, 
when  the  range  is  less  than  .0500,  there  is  very  little  difference  between 
the  mean,  the  average  without  the  most  extreme  point,  and  the  average 
without  the  two  most  extreme  points. 

When  the  range  was  greater  than  .0500  a subjective  decision  was 
made  as  to  whether  or  not  to  change  it.  The  decision  simply  was  whether  or 
not  the  selected  average  appeared  appropriate  given  the  EMFM  fraction 
values  combined. 
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3.3  Prospects  for  Future  Use 


The  function  provided  by  STATS  is  one  that  will  be  required  in 
the  future,  that  of  combining  CMFM  single-ship  repiair  profiles  for  final 
normalization  by  REPROF.  The  major  modification  that  should  be  made  is  to 
enable  STATS  to  combine  more  than  one  set  of  profiles  at  a tune. 

Once  an  established  set  of  repair  profiles  have  been  developed, 
it  may  no  longer  be  necessary  to  eliminate  extreme  points.  When  addi- 
tional data  is  received  it  can  either  be  averaged  in  the  conventional 
way  or  disregarded.  If  such  a procedure  is  adopted,  then  the  function 
of  STATS  could  be  modified. 


3.4  Overall  Flowchart 


STO«C 
MANNING 
& FRACTIONS 
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3.S  User  Requirements 


Input  one  card  in  the  fol loving  format  for  unit  5 

Columns  Descr iption 

1-5  Threshold  for  which  the  most  extreme  fraction 

value  is  discarded  in  computing  selected 
average  (F5.4) 

7-11  Threshold  for  which  the  second  most  extreme 

fraction  value  is  discarded  in  computing 
selected  average  (F5.4) 

Input  up  to  40  sets  of  80  cards,  each  of  which  is  in  the  following 
format  for  unit  1.  These  are  the  CMFM  single-ship  re;^ir  profiles  which 
are  to  be  combined. 

Card  1 


Columns 

Deseret  ion 

1-4 

Four  asterisks 

26-29 

Ship  type 

30-33 

Hull  number 

35-39 

Shipyard  of  availability 

Cards  2-80* 

Columns 

Description 

1-4 

CMFM 

5-14 

Total  manning  for  this  CMFM 

(FIO.O) 

15-20 

Fraction  of  manning  for  this 

CMFM  (F10.4 

*There  must  be 

79  cards  input  in  ascending  order 

by  CMFM. 
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3.6  Sample  Problem 

The  following  four  pages  contain  an  example  of  STATS  output  corres- 
ponding to  the  inut  shown  in  Section  2.6.  Pages  51-52  contain  a listing  of 
the  input  CMPM  single-ship  repair  profiles,  and  pages  53-54  show  the 
corresponding  averages  computed. 


INPUT 


profiles 

( IN  PERCENT  I 


DM  PM 

CV  59 

CV  60 

CV  61 

CV  62 

NURVa 

NORV  A 

PUGET 

NORVA 

1001 

0 .0975 

0 .0992 

0.0379 

0.0103 

1002 

0.0 

0.0 

0.0 

0.0 

100  3 

0 .0 

0.0 

0.0 

0.0 

lOOL 

0.0 

0.0 

0.0 

0.0 

1005 

0.0273 

0.0318 

0.0029 

0.0359 

1006 

0.0  . 

0.0 

0.0 

0.0 

1007 

0 .0090 

0.0001 

0.0033 

0.0012 

1008 

0.0 

0.0005 

0.0007 

0.0005 

1009 

0 .0 

0.0 

0.0039 

0.0009 

2001 

0.0 

0.0011 

0.0 

0.0005 

2002 

0 .0 

0.0 

0.0 

0.0 

2003 

0.1627 

0.1197 

0.1317 

0.1392 

2009 

0.0 

0.0 

0.0 

0.0 

2005 

0.0079 

0.0216 

0.0130 

0.0235 

2006 

0.0 

0.0 

0.0 

0.0 

2007 

0.0190 

0.0280 

0.0077 

0.0396 

2008 

0 .0 

0.0 

0.0 

0.0 

2009 

0.0159 

0.0209 

0.0370 

0.0253 

2010 

0 .0 

0.0 

0.0 

0.0 

2011 

0.0109 

0.0052 

0.0106 

0.0192 

2012 

0.0303 

0 .0585 

0.0587 

0.0957 

2013 

0.0103 

0.0202 

0.0056 

0.0053 

3001 

0 .0399 

0.0135 

0.0257 

0.0275 

3002 

0.0089 

0.0055 

0.0161 

0.0029 

3003 

0 .0 

0 .0 

0.0 

0.0 

3009 

0.0 

0.0 

0.0 

0.0 

9001 

0 .0 

0.0 

0.0 

0.0 

9002 

0.0 

0.0 

0.0 

0.0 

9003 

0.0199 

0.0060 

0.0106 

0.0180 

9009 

0.0 

0.0 

0.0 

0.0 

900  5 

0 .0166 

0.0211 

0.0197 

0.0256 

9006 

0.0087 

0.0057 

0.0052 

0.0073 

900  7 

0 .0055 

0.0055 

0.0027 

0.0092 

9008 

0.0 

0.0 

0.0002 

0.0 

9009 

0 .0018 

0.0019 

0.0025 

0.0029 

9010 

0.0 

0.0 

0.0029 

0.0 

9011 

0.0053 

0.0012 

0.0030 

0.0033 

5001 

0.0053 

0.0010 

O'.  00 12 

0.0 

5002 

0 .0065 

0.0125 

0.00«5 

0.0093 

5003 

0.0 

0.0 

0.0 

0.0 

5009 

0 .0079 

0.0320 

0.0638 

0.0091 

5005 

3.0991 

0.1113 

0.1265 

0.0986 

5006 

0 .0229 

0.0181 

0.0169 

0.0201 

5007 

0.0028 

0.0056 

0.0095 

0.0019 

5008 

0 .0199 

0.03t)5 

0.0266 

0.0250 

5009 

0.0371 

0.0209 

0.0115 

0.037? 

5010 

0.1027 

0.1122 

0.0790 

0.0871 

5011 

0.0287 

0.0302 

0.0295 

0.02‘ > 

5012 

0.0 

0.0 

0.0 

0.0 

5013 

0.0 

0.0 

0.0 

0.0 

5019 

0.0 

0.0 

0.0 

0.0 

6001 

0.0037 

0.0050 

0.0037 

0.0 

6002 

0.0760 

0.0912 

0.0572 

0.07  12 

6003 

0.0090 

0.0052 

0.0026 

0.0 
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6004 

0.0 

0.0 

0.0 

0.0 

6005 

0.0 

0.0 

0.0 

0.0 

6006 

0.0 

0.0 

0.0 

0.0 

6007 

0.0 

0.0 

0.0 

0.0 

6008 

0 .0 

0.0 

0.0 

0.0 

600<7 

0.0342 

0.0085 

0.0250 

0.0219 

6010 

0.0033 

0 .0067 

0.0040 

0.0038 

6011 

0.0 

0.0 

0.0 

0.0 

7001 

0.0002 

0.0 

0.0071 

0.0 

7002 

0.0235 

0.0308 

0.0312 

0.0625 

700  3 

0.0 

0.0 

0.0 

0.0 

7004 

0.0 

0.0 

0.0 

0.0 

7005 

0 .0 

0.0 

0.0 

0.0 

7006 

0.0 

0.0 

0.0 

0.0 

7007 

0 .0 

0.0 

0.0 

0.0 

8001 

0.0 

0.0 

0.0 

0.0 

8002 

0 .0 

0 .0 

0.0 

0.0 

8003 

0.0 

0.0 

0.0 

0.0 

8004 

0.0003 

0.0 

0.0 

0.0 

8005 

0.0 

0.0 

0.0 

0.0 

9001 

0.0177 

0.0159 

0.0037 

0.0082 

9002 

0.0052 

0.0064 

0.0165 

0.0082 

9003 

0 .0656 

0.0388 

0.0894 

0.0718 

9004 

0.0 

0.0 

0.0 

0.0 

9005 

0.0072 

0.0051 

0.0052 

0.0050 

TOTAL 

MANDA YS 

175345. 

267154. 

191282. 

190462. 

I 
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UMPM 

MAX  IHUH 

8ANG6 

Mei)|  AN 

AVi;-<A(>£ 

Ave^Aoe 

M/U  M|M 

AVe8AGE 
M/0  MAX 

AV€  HAG6 

M/U  fcXT 

AVeBAGf 
M/U  H|N 
M/U  max 

stLfc:Teu 

AVcBAGc 

lOOl 

0.0103 

0.0479 

0.0372 

0.04  10 

0.0390 

0.0432 

0,0308 

0.0432 

0.0410 

0. 04  32 

1002 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

O.U 

0.0 

0.0 

1003 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0.0 

1004 

0.0 

0.0 

0.0 

0.0 

0.0 

0\0 

0.0 

0.0 

0.0 

0.0 

1009 

0.0029 

0.0354 

0.0329 

0.0296 

0.0243 

0.0315 

0.0207 

0.0319 

0.0299 

0.0319 

1006 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1007 

0.0001 

0.0040 

0.0039 

0.0022 

0.0021 

0.0028 

0.0019 

0.0720 

0.0022 

0.0021 

1008 

0.0 

0.0007 

0.0007 

0.0009 

0.0004 

0.0006 

7.0003 

0.0006 

0.0009 

0.0004 

1009 

0.0 

0.0039 

0.0039 

0.0004 

0.0012 

0.0016 

0.0003 

0.0003 

0.0004 

0.0012 

2001 

0.0 

0.0011 

0.0011 

0.0003 

0.0004 

0.0005 

0.0002 

0.0002 

0.0003 

0.0004 

2002 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2C03 

0.1147 

0.1627 

0.0480 

0.1 329 

0.  1398 

0.1429 

0.  1269 

0.1269 

0.1 329 

0.  1 398 

2004 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2005 

0.0074 

0.0239 

0.0161 

0,0173 

0.0164 

0.0194 

0.  )14) 

0.0194 

0.01 73 

0.0164 

2006 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2007 

0.0077 

0.0396 

0.0319 

0.0210 

0.0223 

0.0272 

0. >166 

0.0166 

0.0210 

0.0223 

2008 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2009 

0.0159 

0.0370 

0.0211 

0.0228 

0.0246 

0.0276 

7.0209 

0.0209 

0.0228 

0.0246 

2010 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2011 

0.0052 

0.7142 

0.0090 

0.0107 

0.0102 

0.0119 

0.0009 

0.0119 

0.0107 

0.0102 

2012 

0.0303 

0.0987 

0.0284 

0.0921 

0.0483 

0.0943 

0.0448 

0.0943 

0.0921 

0.0943 

2013 

0.0093 

0.0202 

0.0149 

0.0080 

0.0104 

0.0120 

0.0071 

0.0071 

0.0080 

0.0104 

3001 

0.0139 

0.0394 

0.0299 

0.0266 

0.0265 

0.0309 

0.0222 

0.0309 

0.0266 

0.0266 

3002 

0.0029 

0.0161 

0.0132 

0.0072 

0.0083 

0.0102 

0.0098 

0.0098 

0.0072 

0.0083 

3003 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

3004 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.7 

0.0 

0.0 

0.0 

4001 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

4002 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

4003 

0.0060 

0.0180 

0.0120 

0.0127 

0.0124 

0.0149 

0.0109 

0.0149 

0.0127 

0.0124 

4004 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.7 

4009 

0.0147 

0.0296 

0.0109 

0.0188 

0.0199 

0.0211 

0.0179 

0.0179 

0.0188 

0.0196 

4006 

0.0052 

0.0087 

0.0039 

0.0069 

0.0067 

0.0072 

7.7061 

0.0061 

0.0069 

0.0067 

4007 

0.0027 

0.0099 

0.0028 

0.0049 

0.0049 

0.0051 

0.0041 

0.0091 

0.0048 

0.0049 

4008 

0 .0 

0.0002 

0.0002 

0.0 

0.0000 

O.OOOl 

0.7 

0.0 

0.0 

0. OOO  ) 

4009 

0 . 00 1 4 

0.0029 

O.OOll 

0.0021 

0.0020 

0.0022 

0.0019 

0.0022 

0.0021 

0.7027 

4010 

0.0 

0.0024 

0.0024 

0.0 

0.0006 

0.0008 

7.0 

0.0 

0.0 

7.  >no-> 

40  1 1 

0.0012 

0.0093 

0.0041 

0.0031 

0.0032 

0.0039 

0.0029 

0.0029 

0.0031 

3.0032 

9001 

0.0 

0.0093 

0.0093 

O.OOll 

0.0019 

0.0029 

0.0007 

0.0007 

O.OOll 

0.00  W 

9002 

0.0069 

0.0125 

0.0060 

0.0089 

0.0092 

0.0101 

0.0001 

0.0081 

0.0089 

0. 0092 

900  3 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.  0 

9004 

0.0079 

0.0638 

0.0959 

0.0206 

0.0282 

0.0390 

0.0163 

0.0163 

0.0209 

0.0163 

9009 

0.0941 

0.1269 

0.0324 

0. 1049 

0.  1076 

0.1121 

0.1013 

0.  1013 

0.1049 

0.  1076 

9006 

0.0169 

0.0229 

0.0060 

0.0191 

0.0199 

0.0204 

0.0184 

0.0184 

0.0l‘»l 

0.0199 

500  7 

0.0019 

0.0096 

7.0037 

0.0037 

0.0037 

0.0043 

0.0031 

0.0031 

0.0036 

0.0037 

9008 

0.0199 

0.0369 

0.0166 

0.0298 

0.0270 

0.0294 

0.02TB 

0.0230 

0.0298 

0.0270 

9009 

0.0119 

0.0372 

0.0297 

0.0290 

0.0267 

0.0317 

0.0232 

0,0317 

0.0290 

0.0267 

9010 

0.0740 

0.1122 

0.0382 

0.09<»9 

0.0940 

0.  1007 

0.0879 

0.1007 

0.0949 

0.0940 

9011 

0.0249 

0.0302 

0.0097 

0.0270 

0.0272 

0.0281 

0.0262 

0.0262 

0.0270 

0.0272 

9012 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

9013 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

7.7 

0.0 

0.0 

0.0 

9014 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6001 

0.0 

0.0050 

0,0090 

0.0037 

0.0031 

0.0041 

0.0029 

0.0041 

0.0037 

0.0031 

6002 

0.0972 

0.0912 

0.0340 

0,0766 

0.0794 

0.0819 

0.0701 

0.0819 

0.0766 

0.0794 

600  3 

0.0 

0.0092 

1.0092 

0.0033 

0.0029 

0.00  39 

0.0022 

0.0039 

0.0033 

0.0029 

S3 


6004 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6003 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6006 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6007 

0*0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6006 

0*0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6006 

0.0083 

0.0362 

0.0237 

0*02  36 

0.0226 

0.0270 

0.0183 

0.0270 

0.0236 

0.0226 

6010 

0.0033 

0.0067 

0.0036 

0.0039 

0.0066 

0.0068 

0.0037 

0.0037 

0.0039 

0.0066 

6011 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

7001 

0.0 

0.0071 

0.0071 

0.0001 

0.0018 

0.0026 

0.000  1 

0.0001 

0.0001 

0.0018 

7002 

0.0233 

0.0623 

0.0390 

0.0310 

0.0370 

0.061  3 

0.0283 

0.0283 

0.0310 

0.028*> 

7003 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

7006 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

7005 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

o.n 

7006 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.  3 

0.0 

0.0 

0.0 

7007 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

SOOl 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.  ) 

0.0 

0.0 

0.0 

6002 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

aoo3 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

8006 

0.0 

0.0003 

0.0003 

0.0 

0.000  1 

0.0001 

0.0 

0.0 

0.0 

0.000 1 

8003 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

6001 

0.0037 

0.0177 

0.0160 

0.0120 

0.0U6 

0.0139 

0.0093 

0.0139 

0.0120 

0.0116 

9002 

0.0032 

0.0163 

0.0113 

0.0073 

0.0091 

0.0106 

0.0066 

0.0066 

0.0073 

0.0091 

9003 

0.0388 

0.0896 

0.0306 

0.0687 

0.0666 

0.0756 

0.0387 

0.0736 

0.0687 

0.0666 

9006 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.  0 

0.0 

0.0 

0.0 

9005 

0.0030 

0.0072 

0.0022 

0.0031 

0.0036 

0.0038 

0.00  31- 

0.0031 

0.0031 

0.0036 

UNNOAMAL  1 2E0 

total 

1.0000 

1.1167 

0. 877<» 

1 .0000 

0.9911 

1 . 00  1 0 

$4 
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3.7  Error  Messaqes 


i 

I 


No  attempt  is  made  by  STATS  to  identify  errors. 


j 

1 

I 

] 

1 

1 
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3.8  File  Descriptions 


3.8.1  rile  Descriptions  - Output 

Unit  6 - See  sample  problem. 

Unit  7 - 

79  cards  are  punched,  one  for  each  CMfW  in  ascending  order,  in 
the  following  format: 

Co lumns  Descr iption 

1-4  rWFM 

9-14  Selected  average  for  the  above  CMH4  (F6.4) 

3.8.2  File  Descriptions  - Input 

Unit  1 - See  user  requirements. 

Unit  5 - See  user  requirements. 
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3.9  Hierarchical  Chart 


PRINT2 


J.IO  Subroutine  Descriptions 


MAIN  PRUGHAM  - 

MAIN  acts  solely  as  a driver  for  calling  other  STATS  subroutines. 
SUBRCXTTINE  INPITT  - 

The  function  of  INPLfT  is  to  read  the  profiles  which  are  to  be  com- 
bined. The  lunit  on  the  number  of  such  profiles  is  4U.  All  infxjt  data 
IS  stored  in  the  appropriate  arrays. 

SUBHOLTriNE  SETUP  - 


SETUP  calculates  arxi  stores  various  quantities  for  each  CMPM  for 
later  use  in  determining  various  averages.  The  quantities  computed  by 
CMPM  are  the  minimum  and  maximum,  the  range,  the  median,  and  the  sum 
of  the  input  fraction  values.  The  total  manning  for  each  ship  is  also 
determined. 

SUBROUTINE  AVERAG  - 

AVERAG  calculates  several  different  averages  of  the  data  by  CMPM. 
They  are:  the  mean,  the  average  without  the  maximum,  the  average  without 

the  minimum,  the  average  without  both  the  maximum  and  the  minimum,  and  the 
average  without  the  most  extreme  point.  Subroutine  PREFER  is  called  to 
calculate  the  selected  average.  For  each  of  the  above  mentioned  averages, 
the  sum  of  their  values  over  all  the  CMPM's  is  also  determined. 

SUBROCri’INE  PREFER  - 

PREFER  calculates  the  selected  average.  A mathematical  descrip- 
tion of  this  average  follows: 


I 


i 


|1 

f 


bti 


4 


JL  ^ , r. 


Let  S denote  the  selected  averages  for  the  sanple  of  fraction  values  X^, 
1 = 1 , 2,  . . . , N for  one  particular  This  implies  there  are  N input 

DMFM  single-ship  repair  profiles. 

N 

Define  X " X^/N 

1=1  ^ 

D (ma:  (X.)  - Xj  - (X  - min  (Xj) 

V I • 1 1 

IfV  irv 


Ey  max  {Xj^}  2 ^ 

If  V 

min  {Xj^j  < U 

ic  V 

* 

Let  1^  be  the  value  of  i at  which  is  determined 

* 

A (i  1 1 = 1,  2,  ..  ,N}  Al  {i  ! 1 c A and  1 1^) 

Dl  arxd  D2  are  input  thresholds. 


For  N < 2,  S = X 


SUBROOTINE  PRINTl  - 


PRIOTl  prints  the  input  manning  profiles.  ;j 

i 

SOBHOLfTINE  PRINT2  - ! 

PRII/T2  prints  the  calculatpd  averages  and  punches  the  selected  j 

average.  | 

i 


I 

I 


j 
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3.11  Glossary 


ARRAY(I,J,K) 


ARJ3AYA(J,K) 


ARRAYB(I) 

ARKAYC(J) 

ARRAYD(J) 

ARRAYE(L,J) 

ASTR 

AVGl(J) 

AVG2(J) 

AVG3(J) 

AVG4(J) 


For  the  J CMFM  of  the  I input  CMFM 
single-ship  repair  profile; 

K = 1 manning 

K = 2 fraction  of  total  manning 
For  the  CMW: 

K = 1 minimum  manning  fraction  over  all 
input  single-ship  profiles 
K = 2 maximuTi  manning  fraction  over  all 
input  single-ship  profiles 
K = 3 range  of  manning  fractions  over  all 
input  single-ship  profiles 
K = 4 median  manning  fractions  over  all 
input  single-ship  profiles 

Total  manning  for  input  CMFM  single- 
ship repair  profile 

th 

Numerical  value  of  J [>"*3 

Sum  of  all  manning  fractic  s for  the  CMFM 

Manning  fractions  for  CMFM  sorted  from 

anallest  (L  = 1)  to  largest  (L  = NSHIPS) 

values 

Four  alphanumeric  asterisks 

Mean  of  manning  fractions  for  the  "MFM 

*^verage  of  manning  fractions  excluding  the 
maximum  value  for  the  CMFM 

Average  of  manning  fraction  excluding  the 
minimum  value  for  the  CMFM 

Average  of  manning  fractions  excluding  the 
maximum  and  minimum,  values  for  the  CMFM 
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AVG5(J) 


AVGb(J) 

DELTA 

D1 

D2 

HULL  (I) 
I 

ICMFM 

I END 

I START 

II 
12 

13 

14 
J 


Average  of  manning  fractions  excluding  the 
most  extreme  value  for  the  IMFM 

Selected  average  of  manning  fractions  for 
the  CMfW 

For  a set  of  fraction  values  of  any  given 
CMR1,  it  is  the  absolute  difference  between 

1)  the  maximum  value  minus  the  mean  and 

2)  the  mean  minus  the  minimum  value 

Selected  average  computational  threshold 
which  is  compared  to  DELTA  calculated  from 
a full  set  of  fraction  values  for  any  given 

Selected  average  computational  threshold 
which  is  compared  to  DELTA  calculated  from 
a set  of  fraction  values  excluding  the  most 
extreme  point 

Hull  nunber  of  ship  corresponding  to  the 
EMFM  single-ship  repair  profile 

Used  for  calculation  of  a median 

Total  nunber  of  CMFM's  in  each  input  CMFM 
single-ship  repair  profile 

Do-loop  parameter  for  sorting 

Do-loop  parameter  for  sorting 

Multi-purpose  index 

Multi-purpose  index 

Multi-purpose  index 

Multi-purpose  index 

Used  for  calculation  of  a median 


■i 


1 

i 


NSHIPS 


Total  number  of  input  CMFM  single-ship 
repair  profiles 


I i 

J 
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1 


l 3^2 

SM3 

.‘^4 

.<^5 

SM6 

SUBTR 


Sldti  over  all  CMFM's  of  the  mean  of  fraction 
values 

Sun  over  all  CMPM's  of  the  average  of  frac- 
tion values  excluding  the  maxunun  value 

Sum  over  all  CMEM's  of  the  average  of  frac- 
tion values  excluding  the  minimum  value 

Sum  over  all  CMPM's  of  the  average  of  frac- 
tion values  excluding  the  maximum  and  mini- 
mum values 

Sum  over  all  CMPM's  of  the  average  of  frac- 
tion values  excludirxg  the  most  extreme  value 

Sum  over  all  CMPM's  of  the  selected  average 
of  fraction  values 

Adjustment  made  in  computing  the  selected 
average 

Temporary  storage  location 


XMAX 

XMAXN 

XMIN 

XMI^^N 

YAPyD(I) 


Maximum  value  of  all  fraction  values  for 
any  given  CMPM 


Maximum  value  of  fraction  values  excluding 
the  most  extreme  point  for  any  given  CMPM 

Minim'im  value  of  all  fraction  values  for 
any  given  CMPM 


Minimum  value  of  fraction  values  excluding 
the  most  extreme  point  for  any  given  CMPM 

Shipyard  for  the  input  CMPM  single-ship 
repair  profile 
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3.12  Program  Listing 


Ttie  following  seven  pages  contain  a listing  of  the  STATS  program. 

i 
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o o n 


S;ATS  cont'd 


\ 


SUBS  OUI  INF  INPUT 

RF»0  DNPN  PROFILE  INPUT  INTO  ARRAY!  SHIP  , DNPH  , 1 = HANNING) 

, ? » PERCENT) 

ARRATC!  OmPH  ) CONTAINS  THE  NUMERICAL  10 E NT  I F I CA T ION  OF  EACH  OHPM 
COMMON/ ONE/  rARO(<.0),SHIP(N0»,HULL(<.0) 

COMMON/ I NO/  lOMPM , NSH IPS, ARRA  Y (LO , 99, ?)  , ARRA  YL  (99) 

R'-AL»8  YARD 
REAL  ASTR/LH»»««/ 

NSHIPS  = 0 
10  aACASPACE  1 

NSHIPS  = NSHIPS  ♦ 1 
lOMPM  = 0 

C RFAC  header  RFCORD  FOR  A SHIP 

Rt  AO  (1,20)  SHIP  (NSHIPS)  .HULL  (NSHIPS)  ,TAR0(NSMIES) 

20  FORMAT  ( 25*, 2A9 , 1 X. AS ) 

C READ  PROFILE  DATA 

C ASSUME  planning  MODULE  STRUCTURE  IS  THE  SAME  FOR  ALL  SHIPS 

30  lOMPM  = IDMPH  ♦ 1 

READ  ( 1 , 4 0 .ENDsSO  ) ARRA  YC  ( ID  NPM  ) , ( ARR  A Y ( NSH I PS  , I OMP  M , I 3 ) , I 3 » 1 , 2 ) 
40  FORMAT  (A4,F  10. 0,F10.  4) 

C GO  TO  10  AT  THE  ENO  OF  A SHIP 

IF  ( ARRAYC ( lOMPM)  ,EQ. ASTP)  GO  TO  10 
C OTHERRISE  CONTINUE  READING  DATA 

GO  TO  30 

C END  OF  ALL  INPUT  DATA 

C IDMPM  IS  NON  THE  NUMBER  OF  PLANNING  modules 

c NSHIPS  IS  NON  the  number  of  ships 

50  IDMPM  = IDMPM  - 1 
RETURN 
END 
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STATS  cont 'd 


SU3K0UIINE  SflUP 

*.<04YA  ( , J ) CONTAINS  FOR  fACH  OUPMI 

J = 1 MNTMUM  FtRCENT  OVtR  ALL  SHIPS 
J = e MAXiMutI  PFRCENT  OVFR  ALL  SHIPS 
J = 3 PtKCENT  RANC.E  CVER  ALL  SHIPS 
J = «.  PFGIAN  FOR  ALL  SHIPS 

ARRATOC  JHPH  ) IS  the  sum  of  PERCENTS  OVER  ALL  SHIPS  FOR  EACH  OMPM 
ARRAyRI  ship  ) I.ONTAINS  THE  TOTAL  NANNING  FOR  THE  SHIP 
APRATE  ( SHIP  , DHPH  ) contains  FOP  EACH  OMPM  PERCENTS  SORTEO 

hithin  ship 

COHN  ON/  TNO/  ICMPM,NSHIPS,ARRAY(l40,9T,?)  ,ARRAYC199) 

COMNON/THREE/  ARPATA(99,<.)  ,ARRAYD(99)  ,ARRAYB(«.0)  , ARRA  ye  ( 40 , 99  ) 

C SKIP  PROCESSING  IF  ONLY  ONE  ShIP 

lY  ( NSHIPS.LE.  1 ) GO  TO  SC 

C LOOP  ON  OMPM  TO  CALCULATE  SONY  BASIC  OATA  FOR  EACH  ............ 

on  40  I?  = 1 , lOMPN 

C PUT  SHIP  PERCENT  DATA  INTO  SORTED  ARRAY  SPACE 

OO  1 0 II  = I.NSHIPS 
10  ARRATE  ( 1 1 , 12  ) = A P RA  Y ( 1 1 , I 2 , 2 ) 

C SORT  THE  PERCENT  DATA  WITHIN  SHIP 

lYNO  = nShIPS  - 1 

00  2 0 13  = 1 ,1  END 

ISTARy  = 13  ♦ 1 

DO  20  14  = I SI  ART  , NSHIPS 

IF  ( ARRAYEl  13,  12)  .LE.  APRA  y E 1 1 4 , 1 2)  ) GO  TO  20 
TT  MP  = ARnAYE(I4,I2) 

ARRAYl  (I4,I2)  = APRAYE(I3,I2) 

ARRAYF(I3,I2)  = TEMP 
20  CONTINUF 

C SYT  NININUM 

ARRAYA(I2,1)  = ARPAYE(1,I2) 

C SET  MAXIMUM 

ARRAYA(I2,2)  = ARRAYE (NSHIPS , 12) 

C PINO  RANGE  OVER  ALL  SHIPS  POE  This  CMPM 

ARRAYA(I2,3)  = ARKAYA(I2,2)  - ARRAYA(I2,1) 

C OEIERMInE  median 

1 = NSHIPS/2 
J = 2*  I 

ARRAYA(I?,4)  = ( A kP  A Y E ( NS  H IP  S / 2 , I 2)  ♦ AR  RA  YE  I NSH  IPS  / 2 ♦ 1,12)  )/2 
IF  (J.NE. NSHIPS)  ARRAyA(I2,4)  = ARRAYE ( NSH IPS /2  ♦ 1,12) 

C find  sum  over  all  SHIPS  FOR  EACH  OMPM  FOR  AVERAGING 

APRAyO(I2)  = 0. 

DO  3 0 11*1  , NSHIPS 

30  ARRAYC(I2)  = ARPAY0(I2)  ♦ ARRA  y ( 1 1 , 1 2 , ?) 

40  CONTINUY 

C FNO  OF  LOOP  ............ 

90  continue 

c calculate  total  manning  for  each  ship 

DO  60  11*1  , NSHIPS 

arrayb(II)  = 0. 

00  60  12  * 1 ,IOMPM 

60  APOAYBdl)  • APRAYB(Il)  ♦ A RP  A Y ( 1 1 , I 2 , i ) 

RFTUHN 

END 
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STATS  cort'd 


I 


SUBROUtlMF  AvfRAG 

C CALCijLATE  various  AVEhA&FS  AND  THFIR  SUBS  FOR  EACH  DMPM 

COHIAON/TNOF  IO"PN,NSHIPS,ARRAY<i,0,9?,?).ARRATC(‘J9) 

COHHCN/YmRLE  / AkRAYA(99,<.)  ,ARRAY0(99)  ,ARRAY8(<.0)  , ARR  A YE  ( 4 0 , 99 » 
COHHOM/fOUR/  Avr.l  (99)  , A VC?  (99)  ,AVG3(99),AV&‘•(99),SMl,SM^,SH3,SM^., 

A AVG9 (99)  ,SH9,A»&6(99) ,SH6 

c initialize  The  sums  of  tml  averages 
S“l  = 1. 

SN?  • 0. 

SH3  = 9. 

SN4  = 0. 

S-S  = 0. 

SHF,  = O . 

C NO  AVERAGES  IF  ONLY  ONE  SHIP 

ic  (NSMIPS.EQ.  1)  RETURN 

C LOOP  ON  UHPH  TO  CALCULATE  AVERAGES  AND  SUMS  

DO  10  IZ  = l.IDNPN 

C COMPUTE  standard  AVERAGE  AND  ITS  SUM 

AVGl(IZ)  . ARRAYD (IZ) ZNSHIPS 
SMI  = S“l  ► AVGl(IZ) 

C IF  IMO  SHIPS  OR  LESS,  cannot  COMPUTE  ANY  MORE  AVERAGES 

IF  (nships.  t.3)  go  to  10 
C AVERAGE  MITmOUT  THE  HIGHEST  AND  ITS  SUM 

AVGZd?)  = ( ARRAYD(IZ)  - ARRAYAdZ,?)  I / (NSHIPS  - 1) 

SM2  = SMZ  ♦ AVGZdZ) 

C AVERAGE  MITHOUT  THE  SMALLEST  AND  ITS  SUM 

AVG3(IZ)  = ( ARRAYOd?)  - ARRAYAdZ.l)  ) / (NSHIPS  - 1) 

SH3  = SH3  ♦ AVGKIZ) 

C AVERAGE  WITHOUT  MOST  EYTREFAf  POINT,  AND  ITS  SUM 

AVGSdZ)  = AVGZd?) 

IF  (ABRAYA(I2,Z)  - AV&l(I2).LT.AVGldZ)  - ARR  A Y A (I  2 , 1 ) ) 

A A VG5 (IZ)  - AVG3( IZ) 

SMS  = SMS  ♦ AVGS(IZ) 

c call  subroutine  prefer  to  determine  preferred  average 

CALL  PREFER(IZ) 

S“6  = SH6  » AVGS(IZ) 

C IF  ThREF  ships  or  LFSS,  cannot  compute  final  AVERAGE 
IF  ( N5H  IPS.L  T .4)  GO  TO  10 

C AVERAGE  without  THE  SMALLEST  AND  LARGEST  AND  ITS  SUM 

AVG4(IZ)  = ( ARRAYOdZ)  ARRAYAdZ.l)  - ARRAYAdZ.Z)  (/(NSHIPS-Z) 
SM4  = SM4  ♦ AVG4dZ) 

1C  continue 

C END  OF  LOOP  ............ 

RETURN 

END 
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f/FW  -♦■I 


S" V 


STATS  cont ' a 


SUBkOuriNt  PBEFER(I^) 

THIS  SUBROUIIhF  OTTFkkINtS  A PBFFFR’^FO  AvFPA&F  PROFUF  FO«  EACH 

ompm  (i?)  for  which  it  is  called. 

THF  ANALYSIS  BFLOM  ONLY  APPLIES  FOR  THREE  OR  MORE  SHIPS. 

IF  The  absolute  difference  between  the  HAyIHUH  and  The  HEAN 
WITH  the  hinihuh  and  the  nean  eycefos  a threshold  (on  we  throw 
AWAY  THE  EXTREHE  point,  OTHERWISE  T mE  NDRhAl  AVERAGE  IS  PREFERRED. 
IF  In  The  reduced  sample  emust  be  at  least  three  ships  remaining) 
the  ABOVE  ABSOLUTE  DIFFERlNCE  EXCEEDS  ANOTHtP  THRESHOLD  (DE),  WE 
Throw  away  the  next  extreme  point,  otherwise  the  normal  average 

QT  The  REDUCED  SAMPLE  IS  FREFERBEC.  Cl  AND  DE  ARE  DEFINED  IN 

the  subroutine. 

common/ T WO/  IOMPM,NSMIPS,ARHAY(i,D,99,E),ARRAYC(99) 

CO  MM  ON /three/  APRAYA(99,i.)  ,ARRAYD(99)  ,ARRAYB(ROt  ,ARRAYE<N0,99) 
COMMON/EOUR/  AVC1(99),AVGE(99),AVG3)99),AVG1.(99),C-11,SME,SM3,SM<., 

A AVGS (99) ,SM9,AVG6(99) ,SMB 

define  threshold  values 

IF  (lE.EQ.ll  REAL  (S,S)  01, OE 

9 FORMAT  (FS.4,  IX  ,FS.4) 

determine  Initial  absolute  difference 

X“AX  = ARRAYE  (NSH  IPS  , IE)  - AVGl(IE) 

XMIN  = AVGl(IE)  - ARRAYE(1,IE) 

DELIA  = ABSIXMAX  - XMIN) 

IF  absolute  difference  LESS  than  threshold  go  to  30 
IF  (OELTA.lt. 01  ) GO  TO  30 

IF  ONLY  THREE  SHIPS,  CANNOT  THROW  AWAY  E POINTS,  HENCE,  GO  TO  40 
IF  ( NSH IPS . EQ. 3 ) GO  TO  4C 

GO  TO  EG  IF  MAX  IS  MOST  EXTREME  POINT  IN  ORIGINAL  SAMPLE 
IF  ( XHAX.GT.  XMIN)  GO  TO  EO 

CALCULATE  ABSOLUTE  CIFFERENCE  FOR  REDUCED  SAMPLE 
XHAXN  = ARRAYE  ( NSHIPS  , IE)  - AVGS(IE) 

XMlNN  = AVC5T1E)  - ARPAYF(E,IE) 

SUBIR  = ARRA  Y£  ( NSHIPS  , I E) 

IF  ( XMINN. GT  . XMAXN)  SUBT R = ARRAYE(E,IE) 

10  OFLTA  = ABS(XMAXN  - XHINN) 

IF  NEW  absolute  OIFFFRENCE  LESS  than  THRESHOLD  GO  TO  40 
IF  (DELTA. lT .OE  ) GO  To  40 

USE  AVERAGE  EXCLUDING  TWO  MOST  EXTREHE  POINTS 
AVGfa(IE)  = ( AVG5 ( IE) • (NSHIPS  - 1)  - SUBT R ) / ( NS H I PS  - E) 

IF  ( AVGB  ( IE)  .LT  . 0 . ) AVG6(IE)  = 0. 

RETURN 

CALCULATE  absolute  DIFFERENCE  FOR  RfoucFO  SANFlE 
EO  XHAXN  = ARRAYE ( NSHIPS  - 1,IE)  - AV09(IE) 

XMINN  * AV&5TIE)  - ARRAYF(1,IE) 

SU9TR  = ARRAYE  ( NSHIPS  - 1,IE) 

IE  ( XMI NN . GT . XMA XN)  SUBTR  = ARRAYE(1,IE) 

GO  TO  10 

USE  NORMAL  AVERAGE 
30  AVG6(IE)  = AVGKIE) 

RF  TURN 

USE  AVERAGE  EXCLUDING  MOST  EXTREME  POINT 
40  AVGBdE)  = AVGS(IE) 

RE  TURN 
ENO 
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STATS  cont'd 


SUBROUriNt  PRINTl 
C PRINT  INPUT  PROFUeS 

COHNON/ONE/  Y ARO  ( 4 0 ) . SHI P ( RO  > , HUL L ( <«0  ) , 

COHHON/TNO/  IOHPH.NSHIPS ,ARRA Y (40 ,99, 2) , ARRATC (99)  | 

COHNON/ THREE/  A RR A YA ( 99 , 4 ) , ARRA Y □ ( 99 ) ,ARRAYa(4  0)  , ARR A YE ( 4 0 , 99 ) I 

REAL'S  YARD  ! 

13  * 1 j 

14  > NIN0(NSHIPS, 10)  I 

S (A’lTE  (6,10)  ! 

10  FORHAT  ( IHl, 17* ,31HI  NPUT  PROFILES  ,/,lX,?6X,  ' 

A 12H(IN  PERCENT ) ) j 

NPIIE  16,20)  (SHIP( I 1) ,HULL ( I 1)  , I1»I3,I4)  j 

?0  FORHAT  (1HO,7MOHPH  , 1 0 ( IX , A 4 , 1 X , A 4)  ) j 

)«tirE  (6,30)  (VARO(  III  , 11=13, 14) 

30  FORHAT  (IH  ,7*  , 1 0 ( 3X,  A 5 , 2 X ) ) j 

ROITE  (6,30) 

00  50  12  = l,IOMPM 

RRITE  (6,40)  ARPAYC(I2I , (ARRAY(I1,I2,2)  ,Il=I3,l4) 

40  FORHAT  (IH  , A 4 , 3* , 1 0 ( F9 . 4 , 1 * ) ) 

50  CONTINUE 

)«ITE  (6,60)  (ARRAYB(Il),  11*13,14) 

60  FORHAT  (1H0,7H  TOTAL  , / , 1 X , 7 HM ANOA YS , 1 0 ( F9 . 3 ^ 1 X ) ) 

IF  ( I4.EQ.HSHIPSI  RETURN 

13  = 13  ♦ 10 

14  = HINO ( NSHIPS , I 3 ♦ 9) 

GO  TO  5 

END 


STATS  cont'd 


SUqKOUllNF  PRINT^ 

c >»MNi  warious  averages  COHPUTEC 

CORMON/T  WO/  IDNPH  , NSHIPS  ,ARRAY(i.!3,99,2),ARRArC(99) 

CO  HR  ON/ Three/  APRATA(9'>,i.),ARRATO(99),ARRAT8(<40)  , ARRATE  (<.0  , 99) 
CORMON/FOUR/  AVGl  ( 99)  ,AVG3  C99)  , AVG3  (99)  , A VGA  ( 99)  ,SH1  , S)3?  ,SR3  , SR*. . 

A AVGS (99) ,SM9 , AVG6 ( 99) ,SRb 

WRITE  (6,10) 

10  FORRAT  ( IHl  , 8A)(  ,10H  A VERAGE  , / , 1 * , SA  X , I ( 1 OH  AVERAGE), 

A30H  W/O  RIN  selected  ,/,  IX , ramORPR  RINIHUR  HAXIRU)1  range 

9 REOIAN  AVERAGE  W/O  RiN  W/Q  RAX  W/O  EXT  W/O  RAX, 

C 1 OH  AVERAGE,///) 
no  30  12  * l,IOHPR 

IF  (NSHIPS. EQ.l)  WRITE  (6,20)  ARR A YC ( I 2)  , ARR A Y ( 1 , 12 , 2 ) , 

A ARRAT(1,I2,2) ,Sha,ARKAY(1,I2,2I,ARRAT(1,I2,2), ARRAY (1,12,2) 

IF  ( NSHIPS  .EO . 1 ) AVG6(12)  = A RR A Y ( I , I 2 , 2 ) 

IF  ( NSHIPS.  EQ.  2)  AVG6(I2)  = AVGKI2) 

IF  ( NSHIPS. EQ. 2)  WRIIF  (6,20)  A R R A YG ( I 2 ) , ( AR R A Y A ( I 2 , I 3)  , I 3 » 1 , A ) , 

A AVGt ( I 2)  , A VG  1(  12) 

IF  ( NSHIPS. EQ. 3)  WRITE  (6,21)  A RR A YC ( 1 2 ) , ( AR R A Y A ( I 2 , I 3 ) , I 3 = 1 , A ) , 

A AVG1(I2),AVG3(I2),AVG2(I2),AVG5(I2),AVG6(I2) 

IF  ( NSHIPS .GT  . 5 ) WRITE  (6,22)  AR R A YC ( I 2 ) , ( AR RA r A ( 12 , I 3 ) , I 3 = 1 , A ) , 

A AVG1(I2),AVG3(I2),AVG2(I2),AVGS(I2),AVGA(I2),AvG6(I2) 

20  FORRAT  (IH  , A A , FF  1 0 . A , A 0 X , F 1 0 . A ) 

21  FORMAT  (IM  ,AA, AF10.A,10X,F10.A) 

22  FORRAT  (IH  , A A , 1 0 ( F 1 O . A ) ) 

30  CONTINUE 

IF  (NSHIPS. EQ. 21  WRITE  (6, AO)  SR1,SR1 
IF  ( NSHIPS. EO. 3 ) WRITE  (6,A1)  SR  1 , SM 3 , SH2 , S R 5 , S H6 
IF  (NSHIPS. GT. 3)  WRITE  (6,A2)  SM  1 , SM 3 , S M2 , S R 5 , S HA , S M6 
AC  format  ( IMO , 12HUNNORMALI zed, / , 1 X , 12H  TOTAL  , 3 2 X , IF  1 0 . A , A 0 X , 

A F 10.  A) 

A1  FORMAT  (IHO,  12HUNNORMALIZEO,/,  IX,  12H  TOTAL  , 32 X , AF 1 0 . A , 1 0 X , 

A F 10 . A) 

A2  FORRAT  ( IHO,  12HUNNORMAL I ZED,/ , IX , 12H  TOTAL  ,32X,6F10.A) 

C P«JNCh  PREFERRlO  AVlRAGE 

00  60  12=1 , lOMPR 

WRITE  (Z,S0)  ARRAYCdZ),  AVG6(I2) 
so  FORMAT  (AA,AX,F6.A) 

60  CONTINUE 
RETURN 
END 
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4 . 0 REPROF 


i 

4.1  Function 

The  purpose  of  REPROF  is  to  develop  a (normalized)  CMFM  repair  profile 
from  the  weighted  sum  of  up  to  nine  (unnormalized)  combined-ship  repair 
profiles.  The  input  consists  of  from  one  to  nine  combined-ship  repair 
profiles,  each  consisting  of  79  cards.  Each  card  gives  the  fraction 
of  manning  for  its  corresponding  CMFM.  Since  these  inputs  are  derived  from 
the  output  of  the  STATS  program,  the  sum  of  the  fractions  for  any  profile 
is  not  guaranteed  to  add  to  one  - hence  the  requirement  to  produce  a 
normalized  profile  (i.e.,  where  all  the  fractions  do  add  to  one).  T^e 
capability  to  construct  a normalized  profile  from  the  weighted  average  of 
more  than  one  input  profile  is  accomplished  by  the  input  of  weights  associ- 
ated with  all  profiles.  Table  2 below  illustrates  REPROF 's  accomplishment 
of  its  function.  There  is  no  limit  on  the  number  of  normalized  profiles 
REPROF  can  produce.  An  unlimited  number  of  sets  of  weights  and  corres- 
ponding combined-ship  repair  profiles  may  be  input. 

TABLE  2 - CMFM  NORMALIZED  REPAIR  PROFILE 
UNNORMALIZED  NORMALIZED 


CMRM 

PROFILE 

PROFILE 

1001 

0.0653 

0.0523 

1002 

0.0660 

0.0528 

1003 

0.0019 

0.0015 

9004 

0.0 

0.0 

9005 

0.0063 

0.0050 

TOTAL 

1.2497 

1.0000 

Lr. 


4.2  Importance 


i 


I 


REPROF  was  the  sole  source  for  the  final  creation  of  the  IMFM  repair 
profiles.  The  STATS  program  attempted  to  develop  a combined-ship  repair  j 

profile  by  ignoring  extreme  points.  In  some  cases,  decisions  were  made  to  ] 

override  STATS  choices.  In  either  case,  the  combined-ship  repair  profile 
developed  by  STATS,  with  or  without  modif ications,  was  generally  not 
normalized.  Thus  REPROF  was  necessary  to  produce  the  final  repair  profile. 

Tlie  capability  to  produce  a normalized  profile  from  the  weighted  average  of  j 

more  than  one  input  was  used  only  for  nuclear  submarines.  The  components  1 


were  non-nuclear  repair,  nuclear  repair,  and  refueling  {if  appropriate). 
The  following  outputs  were  derived  from  REPRDF: 

1.  A printed  listing  of  the  finalized  repair  profile  along  with 
those  profiles  and  weights*  used  to  create  it. 

2.  A printed  listing  of  the  finalized  repair  profile  summarized 
to  the  one  digit  SWBS  level. 

3.  A punched  card  version  of  the  finalized  repair  profile. 

The  printed  output  serves  as  a permanent  record  of  the  finalized  re- 
pair profiles.  The  punched  card  output  will  be  used  to  create  the  cata- 
loged file  of  repair  profiles  for  use  in  matrix  creation.  Once  REPROF  was 
run,  its  input  was  not  saved  since  any  modifications  to  a repair  profile 
would  in  general  require  STATS  to  be  rerun. 


* Only  if  there  was  more  than  one  component  of  the  finalized  repair  profile. 
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4.3  Prospects  for  Future  Use 


The  function  that  REPROF  performs  is  essential  if  unnormalized  pro- 
files will  in  the  future  be  developed  by  procedures  similar  to  those 
employed  in  the  STATS  program.  Until  more  sophisticated  techniques  of 
updating  repair  profiles  on  the  basis  of  shipyard  feedback  are  developed 
aind  implemented,  REPROF  will  probably  continue  to  be  used  as  is  currently 
being  done. 

Since  the  output  of  REPROF  eventually  becomes  the  actual  repair 
profile  for  the  given  ship  group  (class,  type,  etc.),  an  eventual  per- 
manent link  to  the  actual  cataloged  file  of  repair  profiles  could  be 
developed.  Inputs  could  be  ma  e to  REPROF  to  indicate  those  ship./hull 
number  combinations  for  which  the  normalized  profile  will  apply.  The 
output  could  be  then  put  directly  on  the  catalogued  file  in  the  proper 
format  with  the  required  selection  criteria. 


4.4  Overall  Flowchart 


4.5  User  Requirements 


Input  as  many  sets  of  cards  each  of  which  in  the  format  described 
in  this  section  for  every  normalized  CWFM  repair  profile  required.  The 
sets  of  cards  for  the  different  normalized  profiles  required  are  input 
consecutively. 

Card  1 - Weighting  Factor  Card* 

Columns  Description 

1 Asterisk 

4 Number  of  LMFM  profiles  from  which  a weighted 

average  is  to  be  formed. 


9-14 

We  ight 

for 

1st 

CMPM 

profile 

(F6.4) 

16-21 

We  ight 

for 

2nd 

CMW 

profile 

(F6.4) 

23-28 

Weight 

for 

3rd 

mFM 

profile 

(F6.4) 

30-35 

Weight 

for 

4 th 

rwRi 

profile 

(F6.4) 

37-42 

Weight 

for 

5 th 

fMFM 

profile 

(F6.4) 

44-49 

Weight 

for 

6 th 

mFM 

profile 

(F6.4) 

51-56 

Weight 

for 

7 th 

CMFM 

profile 

(F6.4) 

58-63 

We  ight 

for 

8 th 

I>im 

profile 

(F6.4) 

65-70 

Weight 

tor 

9 th 

CMW 

profile 

(F6.4) 

Card  2 - 
Columns 
1 

2-50 


Profile  Header  Card 
Descr iption 
Dash 

Alphanumeric  profile  description 


Cards  3-81 

Columns 

1-4 

9-14 


- CMFM  Profile  Data  Card** 

Description 

Depot  maintenance  planning  module  number 
Unnormalized  fraction  of  manning  for  the  CMFM  {F6.4) 


*The  weights  given  in  data  elements  3 through  11  must  add  to  one.  The  num- 
ber of  weights  of  nonzero  value  must  equal  the  value  of  the  second  data 
element  - number  of  CMfW  profiles. 

**There  must  be  exactly  79  cards,  in  ascending  order  by  CMFM. 
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Repeat  cards  2 throuqh  81  for  each  CMFM  profile  that  is  to  be  included 
in  the  weighted  average.  For  example,  if  the  value  of  the  second  data 
element  on  the  weighting  factor  card  (number  of  CMW  profiles  from  which 
the  weighted  average  is  to  be  found)  is  N^,  then  there  must  be  1 + 80N^ 
cards  input  for  the  first  normalized  profile  required.  If  there  are 
more  normalized  profiles  required,  then  input  next  the  second  weighting 
factor  card  which  the  corresponding  profiles,  then  the  third  set,  etc., 
until  no  more  profiles  are  required. 
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4.6  Sample  Problem  i 

I 

i The  followinq  three  pages  contain  a saiiple  output  from  RhPROt  corres- 

) ponding  to  the  selected  average  sh"vn  in  Section  3.6.  Pages  79-bU  are  a 

printed  listing  of  the  finalized  repair  profile.  Page  HI  is  the  finalized 
repair  profile  summarized  to  the  one  digit  SWBS  level. 
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normalized  repair  profiles 


BY  DEPOT 


maintenance  planning  modules 


( DMPM) 


PROFILE 


SET 

iGHf 

OESCR I PT ION 

1 

l .0000 

CV  59  CLASS 

DMPM 

IGHTtO 

AVERAGE 

SET  1 

1001 

0.0432 

0.0432 

100  2 

0.0 

0.0 

1003 

0.0 

0.0 

1004 

0.0 

0.0 

1005 

0.0315 

0.0315 

1006 

0.0 

0.0 

1007 

0.0021 

0.0021 

1008 

0.0004 

0.0004 

1009 

0.0012 

0.0012 

2001 

0.0004 

0.0009 

200  2 

0.0 

0.0 

2003 

0.1357 

0.1357 

2004 

0.0 

0.0 

2005 

0.0164 

0.0164 

2006 

0.0 

0.0 

2007 

0.0223 

0.0223 

2008 

0.0 

0.0 

2009 

0.0246 

0.0246 

2010 

0.0 

0.0 

2011 

0.0102 

0.0102 

2012 

0.0543 

0.0543 

2013 

0.0104 

0.0104 

3001 

0.0265 

0.0265 

3002 

0.0083 

,0.0083 

3003 

0.0 

0.0 

3004 

0.0 

0.0 

4001 

0*0 

0.0 

9002 

0.0 

0.0 

900  3 

0.0124 

0.0124 

4004 

0.0 

0.0 

400  5 

0.0195 

0.0195 

4006 

0.0067 

0.0067 

900  7 

0.0045 

0.0045 

4008 

0.0 

0.0 

400  9 

0.0020 

0.0020 

9010 

0.0006 

0.0006 

9011 

0*0032 

0.0032 

RO 
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4 


OHPM 

ir»Hreu 

AVERAGE 

SET  1 

iOOl 

0.0019 

0 . 00  1 9 

5002 

0.0092 

0.0092 

500  3 

0.0 

0.0 

500^ 

0.0163 

0.0163 

5005 

0.1076 

0. ro76 

5006 

0.0196 

0.0196 

500  7 

0.0037 

0.0037 

5008 

0.0270 

0.0270 

5009 

'0.0267 

0.0267 

5010 

0.0939 

0.0939 

5011 

0.0272 

0.0272 

5012 

0.0 

0.0 

5013 

0.0 

0.0 

50  19 

0.0 

0.0 

6001 

0.00  31 

0.0031 

600  2 

0.0763 

0.0753 

6003 

0.0029 

0.0029 

6009 

0.0 

0.0 

6005 

0.0 

0.0 

6006 

0.0 

0.0 

6007 

0.0 

0.0 

6008 

0.0 

0.0 

6009 

0.022^ 

0.0224 

6010 

0.00^4 

0.0044 

6011 

0.0 

0.0 

7001 

0.0018 

0.0018 

7002 

0.0286 

0.0286 

7003 

0.0 

0.0 

7009 

0.0 

0.0 

7005 

0.0 

0.0 

7006 

0.0 

0.0 

7007 

0.0 

0.0 

8001 

0.0 

0.0 

8002 

0.0 

0.0 

8003 

0.0 

0.0 

8009 

0.000  1 

0.0001 

8005 

0.0 

0.0 

9001 

0.0114 

0.0114 

9002 

0.0091 

0.0091 

9003 

0.0661 

0.0664 

9009 

0.0 

0.0 

9005 

0.0066 

0.0056 

total 

1 .0000 
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NORM.  VA 

100 

0.0784 

200 

0.2743 

300 

0.0348 

400 

0.0489 

500 

0.3329 

600 

0.1081 

700 

0.0303 

800 

0.0001 

900 

0.0922 

total 

O 

o 

o 

o 

• 

4.7  Error  Messages 


The  following  errors  are  detected,  messages  printed  and  actions 
taken: 

1.  If  a weighting  factor  card  is  being  sought  and  is  not  found,  a 

list  of  cards  which  are  to  be  ignored  is  printed  along  with 
the  following  error  message:  WEIGHTING  FACTOR  CARD  MISSING. 

THE  FOLLOWING  CARDS  WILL  BE  IGNORED. 

2.  If  a weighting  factor  card  has  v«^ights  which  do  not  sum  to  one, 
that  card  is  ignored  and  the  following  error  message  is  printed: 
THE  WEIGHTING  FACTORS  SPECIFIED  ON  THE  FOLLOWING  HE.ADER  CARD  DO 
NOT  SLM  TO  1.0.  THE  PROFILE  SETS  WHICH  FOLLOW  THIS  HEADER  CARD 
WILL  BE  IO40RED  and  a search  for  the  next  weighting  factor  card  is 
initiated. 

3.  If  a canbined-ship  profile  data  card  is  encountered  when  the  I^^ 
combined-ship  profile  header  card  of  the  current  set  is  expected, 
that  card  is  ignored  and  the  following  error  message  is  printed: 
TITLE  CARD  MISSING  FOR  PROFILE  I OR  TOO  MANY  PROFILE  CARDS  FOR 
PREVIOUS  SET.  THE  FOLLOWING  CARD(S)  WILL  BE  IGNORED,  and  a search 
for  the  next  weighting  factor  card  is  initiated. 

4.  If  a weighting  factor  card  is  encountered  when  a combined-ship 

profile  data  card  is  expected,  the  processing  of  the  weighting 
factor  card  on  which  the  program  had  been  operating  is  ter- 
minated and  the  following  error  message  is  printed:  WEIGHTING 

FACTOR  CARD  UNEXPECTEDLY  ENCOUNTERED.  CANNOT  CCMPLETE  PROCESSING 
OF  THIS  SET  OF  PROFILES.  Processing  on  the  weighting  factor 
card  just  read  is  then  initiated. 

5.  If  an  unexpected  end  of  file  is  encountered,  processing  terminates 
after  the  following  error  message  is  presented.  END  OF  FILE 
UNEXPECTEDLY  ENCOUNTERED.  CANNOT  CCMPLETE  PROCESSING  OF  THIS  SET 
OF  PROFILES. 


82 


6.  If  a combined-ship  profile  header  card  is  encountered  when  a pro- 
file data  card  from  the  profile  is  expected,  the  set  of 
combined-ship  profiles  currently  being  processed  is  skipped  and 
the  following  error  message  is  printed:  TOO  FEW  DMPM's  FOR 

PROFILE  I.  REJIAINING  CARDS  FOR  THIS  SET  OF  PROFILES  WILL  BE 

IGNORED.  A search  for  the  next  weighting  factor  card  is  then 
initiated. 


4.8  File  Descriptions 


k 


4.8.1  File  Descriptions  - Output 

I 

I Unit  6 - See  sample  problem. 

Unit  7 - Punched  Cards 

Cards  in  the  following  formats  are  produced  for  each  normalized  profile 
created. 

Cards  1 to  I (where  there  were  I combined-ship  repair  profiles  to  be 
consolidated  and  normalized) 

Columns  Description 

1 Dash 

2-50  Alpha  numeric  description  of  included  combined-ship  profile 

Cards  I + 1 to  I + 80* 

Columns  Description 

1-4  CMFM  nunber 

9-14  Normalized  function  of  manning  for  the  CMFM  (F6.4) 

4.8.2  File  Descriptions  - Input 

Unit  5 - See  user  requirements. 

* Cards  are  punched  in  ascending  order  by  CMFM  number. 


4.*^  Hierarchical  Chart 


Ttiore  is  only  a main  program. 


4.10  Subroutine  Descriptions 


MAIN  PROGR/>M 

MAIN  performs  the  entire  function  of  REPROF.  The  following  text  elabo- 
rates some  specific  details  that  have  not  yet  been  stated. 

When  MAIN  is  searching  for  a particular  kind  of  card  (e.g.,  weighting 
factor,  profile  header,  or  profile  data  card),  it  does  so  by  looking  at 
column  one-  An  asterisk  implies  a weighting  factor  card.  A dash  unplies  a 
combined-ship  profile  header  card.  And  a non-blank,  non-asterisk,  non-dash 
implies  a combined-ship  profile  data  card.  If  ever  a blank  is  encountered 
in  column  one,  that  card  is  skipped  without  mention. 

When  MAIN  produces  a normalized  profile,  the  final  product  is  guaran- 
teed to  sum  to  one  at  four  decimal  place  accuracy.  This  is  accomplished  by 
appropriately  adjusting  the  value  of  EMFM  9003. 


4.11  Glossary 


w 


i 


ANORM{ISKT,I) 

AST 

BLANK 

CTYPE 

DASH 

ERROR 

HYPHEN 
ICMFM  (I) 

I SET 

ISWBS 

JPREV 

MARKER 


NSETS 


5 

The  normalized  value  for  the  I-th  CMPI  of  the 
ISET-th  combined-ship  profile  currently  being 
summed  and  normalized 

One  alphanumeric  asterisk  ("*") 

One  alphanumeric  blank 

Card  type  indicator 

Five  alphanumeric  dashes  (" ") 

Difference  between  1.0  and  the  sum  of  the 
weighted  average  repair  profile  (see  array 
WTAVG) 

One  alphanumeric  hyphen 

The  nnnber  of  the  I-th  CMFM  of  the  combined-ship 
profile  currently  teing  read 

The  set  number  of  the  combined-ship  profiles 
to  be  summed  and  normalized 

Ihe  (single  digit)  SWBS  categories 

Variable  used  to  determine  carriage  control 
of  the  printed  output 

Marker  which  is  set  to  "1"  when  an  error  (in 
the  order  of  the  cards  input)  is  encountered- 
cards  following  the  erroneous  card  will  be 
ignored  until  a weighting  factor  card  is  found 

The  number  of  combined-ship  profiles  to  be 
summed  and  normalized 


SELAVG(I)  Unnormalized  value  for  the  I-th  CMFM  of  the 

combined-ship  profile  currently  being  read 

SWBS(J)  Fraction  of  manning  for  the  J-th  single  digit 

SWBS  for  the  current  final  repair  profile 
(normalized) 

TITLE (I ) Title  (alphanumeric)  of  the  current  combined- 

ship  profile 
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TUrAL 


Sun  of  the  unnormalized  values  for  the  current 
combined-ship  profile 


r 


TOTAL2 

lOTAlJ 


TCwr 


wi;iaiT(i) 

WAVG  ( I ) 


Sum  of  the  normalized 
[>1tM  repair  profile 


values  for  the  current 


Sum  of  the  values,  by  SWBS,  associated  with 
the  current  final  CMFM  repair  profile 


Sum  of  the  factors  to  be  used  to  compute  the 
weighted  average  of  the  sets  of  combined- 
ship  profiles  input 

Weighting  factor  for  the  I-th  combined-ship 
prof ile 

Weighted  average  of  the  normalized  values  for 
the  I-th  CMFM,  of  the  combined-ship  profiles 
being  sunmed  and  normalized  - the  weighted 
average  value  is  rounded  to  four  decimal  places 
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4.12  Program  Listing 


Hie  following  four  pages  contain  a complete  listing  of  REPROF. 
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i 


•t,  ^ 


o o o o 


REPROF 


‘PPOr.SfiH  Rf-pPO''(INPUT,OUTPUT,T«Pr«;^INPUT,T»P«'5*0UTC>i)T,T»Pf7) 


PFPPQP  (O'^PH  PpPAIP  PPOFILFSt  PPPPAPf':  k PfP»IP  PPOFILF.  DMPm, 
rOP  4 &POUP  OF  SHIP'"  PY  T«KlNr,  « WEIF.HTFD  «VEP*CE  O'"  thf  pFP»IP 
“POPIIFF  OP  UP  TO  9 OIFFFPENT  S«IP  CATFGOPTES.  THE  KEIF.MTInG  P40T0PS 
4PF  IMP"T  (VIA  CARD?),  AS  APE  T HF  OMPM  PROFILES  OF  THE  SHIP  CATE- 
GOPIEF  rO  “E  CO**PINEO.  these  INPUT  PROFILES  NEED  NOT  9E  NOOMALI7EO  - 
orpoOF  UOPH4LI7FS  THEN  PRIOR  ’’0  USING  THE  VALUES  TO  COHPU'^E  T nr 

heightec  average. 

IN  AOPITION,  PEPROF  SU"S  the  APPPOPRIATF  ompm  VALUFS  OF  Thc 
resultant  profile  to  PPTJIM  THE  o'^PATR  VEpYOR  RY  SHRS  GROUPING. 

OUTPUT  OF  prppoF  CONSISTS  OF, 

printout  of  The  repair  PR0FTL‘‘E  input  for  each  Ship  catrgory  to 

R-  rO“P'NIO  together  (AFTER  NOR m4 L I 7 AT  I ON  BY  PEPPOFI. 

printout  of  The  CALCULATEO  RE°AIR  profile  Nhich  SYNThfsI7ES  THR 

REPAIR  profiles  of  Thf  various  ^hip  categories  fQP  This  ShI°  grouping, 

Pl'N'HFO  OECY  OF  the  calculates  REPAIR  PROFILE. 

printout  of  the  SHPS  SUHhjry  VECTOR. 

The  units  used  PY  RFOPOF  ARE  SUMMARIZES  BELOW. 

UNI*  S - input  - CARO  INPUTS  (WfighTING  f/voTOP'^,  HEASER  CAROS, 
UNNORMALI7ED  “ERAIR  PROFILE'  'OP  VARIOUS  SHIP 
CATECCRIFS,  etc.) 

UNIT  e - OUTPUT  - printout  of  Rfpair  profiles  amo  SWBS  vector. 

UNIT  7 - OUTPUT  - RFPAIR  PRSFIL'S  AS  CALCULATES  BY  oepoCF  (for 
PUNCHING) . 


RFAL"  OASH 

SIH  NSION  TOM PH (100).  SELAVG(100).TITLE«19),ANORH(9,79)  , SWBS (9). 

. WTAVG(79) ,MF IGHT(9) 


OATA  HYPHFN71H-/,  AST/IH*/,  BLANW/IH  /,  OSSH/5H- 


'YPFCT  weighting  factor  CARO.  ENCOUNTER  OTHER  CAPO. 
mar  YE  Pf  0 

C**|.C  REAO(S,50)  CTYPE.TITLF 

hC  RFAO(S.90.FNn=9C)  CTYPE.TITLp 

so  FOR-AT  (A1.19AI.) 

(E0F(5) .NE.O. 0)  GO  TO  90 
IF  (CTYPE.ES. AST)  GO  TO  100 
IF  (CTYPE.es. BLANK)  GO  TO  AO 
IF  (harkER.NE .0 ) GO  TO  70 
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O O O O O 1 o o o o 


RtPROF  cont'd 


wciic 

f,c  T ( iHi.qit  ,4r,HHr  jj;mT  INf,  rSTTCP  C»P0 

C****.  CSP'if'')  hill  T^NOorn, /) 

. CiP^VS'  Hill  PF  rONPP'T, /I 

^5  MAPHjPz I 

'r  HPir^  c T YPf , ^ I tl <■ 

FPP>-4T  (?■)*,  41,  lq«4l 

no  TO  40 

qo  «:to° 


rnr  roLLOHInn, 


HCir,H''ING  ‘^4CTOP  CAPO  POtlNT’.  PTA”  I'^.  

IK  MAPKE  p=  c 

OACY'^rACF  5 

P‘"A''  K.llOl  , (Ht- t Ght  ( I I , I r 1,  q| 

lie  fPP-AT  ( 3» , I 1 , U»  , Q (Ft . 4 . ! »)  ) 

rHFPx  ' Hfinw'ING  FAGTOPS  go-  to  1.0  

T'lT  4T  =C  . 0 

OF  10'  I^I.NPFT'' 

1 ->0  Tniwr^TOTHT  » HFir.HTtn 

IF  ( T OT  HT  .to.  1.  : I GO  TP  140 

WPIfF  ft.lTCI  ( wr  I FH’  n I , I r 1 , NSFTS  1 

1 ir  F''OM4T  ( 1H>  , lOx  , 3»«TMF  NFlGMTThG  fa'tqoS  FprciFTET  ON  TmF, 

. 40^^  following  ufa^co  faoo  Of  MJT  F^JM  TO  1.0,  /F 

*•••.  ?C  < . q«HF  JG“  T G :,q(?».Ft..l  // 1 1 » , OOt-TMF  PPOFJlF  GFTF  HWIC“, 

. OCX.GHWFir.HT^  .P(?>.‘G.4t  //IIT.OOHTWF  PPOFILF  SFTF  HHIPH, 

. 4’W  FOLLOW  TwIG  mfaPfp  ^ a po  w'lL  “E  IGNCPEO.1 

MAPFFprl 

GP  TO  40 


PPINT  PPOFILF  r.FFi(;P7qG  wfaOI*.  ..  - 

140  ISft=l 

wpitf  rt.iGn 

IGC  FOP^AT  tltl,l«x,  ?twNOO“ALl ’F T prPAIP  PPOF I LFG/ 1 PT, ?6 (1“- 1 / 

, 1CT.44HRY  orpA-r  hAInTfsiAN'c  plannINj  npadlfg  (awP4(/ 

. 10<.44(1M-)//  lOY.TuppoFiLf/i’Y.OwwFrT  weight  oFGC 


,U/  1CT.30H- 


• F ) 


INITIALI3F  WEIGhtfO 

no  160  lFl.?q 
160  HT4VG(It=0.C 
ITQ  1=1 

IGFTrlGET  ♦ 1 

tct£l=o.c 

FxpfCT  PPCfilE  Titlf  espp. 
•17G  PF«n  (F.GOt 
17G  PF»0  (G.5Q,FNO=?0C) 


AVFPAGF  appay. 


FNCOUNTEP  OTHER  C*PD. 
PTYPE, title 
PTYPE. title 


■IF  (EOF(Gt .NE.O. Ct  GO  TO  ?00 
IF  (OTYPE .EO . HYPHEN)  GO  TO  ?20 
IF  (CTYPE.EO.PLONIO  GO  TO  17G 
IF  (CTYPE.EO.4GT)  GO  TO  17= 


grpo 

'6C 

PP 

G7C 

PS'PP 

FBC 

• • • • 

SRC 

• • • • 

F 5C 

PC'  PP 

61C 

P-P  Q 

62C 

prpo 

t 3C 

prpp 

&4C 

or  PP 

66C 

prpp 

6fcC 

prpp 

6 70 

pr  PC 

68C 

prpp 

60C 

prpp 

7CC 

prpp 

710 

prpp 

T?C 

prpp 

T3C 

prpp 

74C 

prpp 

7SC 

prpp 

7tC 

prpp 

770 

pr  op 

7«C 

prpp 

7GC 

pc  p p 

»0C 

• • • • 

•10 

• • • • 

•2C 

prpp 

•30 

prpp 

•4C 

prpp 

850 

prpp 

•6C 

prpp 

•70 

prpp 

S80 

prpp 

890 

prpp 

nOC 

prpp 

910 

■'prpp 

920 

prpp 

= 30 

prpp 

940 

prpp 

95  C 

prpp 

960 

prpp 

970 

prpp 

Q»C 

prpp 

09C 

orppi ooC 

o«‘pomc 

prpoi 

r?: 

• • • • 1 

: 3C 

• • • • j 

• w ' 

• • • • 1 

• 

P r p : 

' ♦ 

pc  c w 

• 

p*  i 

• 

MAPYE  P= 1 

WPITE  (6.1B0)  ISET 

1 GC  F0RH4T  ( IHO  , GY,  30  HTITLE  0490  HISSING  FOR  PPPFRF.  I?. 
. 44H  OP  TOO  HANY  PPOFTLE  C»P0S  fob  PREVIOUS  =ET.7 

C***’.  10Y.34HTHF  following  CAPCHS)  WILL  B'  ICNOPFO,/) 

. ICY.IBHThE  following  CApovG*  WILL  BE  IGnOPFO./) 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUR[AU  Of  STANDARDS- 1963-.1 


o o 


REPROF  cont'd 


GO  TO  65  RFPP1160 

C RFPPllTO 

155  MRITE  l6tlR0»  R«-PP118C 

150  FOB«»T  (lH0.5*tV7WHEIGHTING  P5CTOP  C*RO  UNtXPFCTEOLT  ENCOUN TE PEO . . BFPPl 190 
. 53M  cannot  complete  PPOC^SSING  OF  THIS  SET  OF  PPOFILES.I  RFPR130C 

GO  TO  100  P'’PP1?1C 

C PrPPl??C 

700  NPITE  (6,710)  PFPP1730 

710  FOPHPT  )1MO,9X,«.5MENO  OF  FRE  UNEXPECTEOLT  FNCOUNTFPEO.  CANNOT,  PPPP17<»C 

45M  complete  processing  of  TmIS  SFT  of  profiles.)  RFPR1750 

STOP  PFPR1760 

C RFPP177C 

C title  CARO  FOUND.  PRINT  IT.  RFPP1780 

770  NRITE  (6,775)  I SET , ME IGhT( I SF T ) , TITLE  RFPP1790 

775  FORMAT  (13X,I1,6X,F6.I.,3X,19AI.|  R«-PP130C 

NRITE  (7,50)  CTTPE,TITLF  RFPR131C 

C RFPR1370 

C '■XOECT  FRCFTlE  CARO.  ENCOUNTFR  OTmEP  CARO.  RFPR1330 

C*730  RFAC  (5.50)  CTVPc, TITLE  ••••13W0 

730  REAH  (5,50,ENO= 700)  CTYPF, TITLE  ••••135C 

C»»»*»IF  (EOF (5) .NE.O. 01  GO  TO  700  ••••1T60 

IF  tCTYPE.EO.ASTI  GO  TO  18*;  prpRl37C 

IF  (CTTPE .EO.BL ANX)  go  TO  730  RfPRl380 

IF  (CTVPE.NE. HYPHEN)  GO  TO  750  REPRl 39C 

C RFPRlt.00 

WRITE  (6,7l»0)  ISET  RCPRILIC 

C»7U0  format  )1MO,9X,?6MTOO  FEW  WPM*S  FOR  PROFILE,  17,  ••••11.70 

7<.0  RORMAT  (IMO,  9X.76HTOO  FEW  OMPMas  FOR  PROFILF,  17,  ••••11.30 

. 60H.  REMAINING  CAROS  FO®  This  SET  OF  PROFILES  WILL  BE  I G NOPE ORRPP 1 ‘.l.O 

../)  RRPPll,5e 

GO  TO  65  RFPR1I.6C 

C RFPRlfc7C 

C profile  CARO  FOUNO.  RFAO  IT.  REPRl‘,80 

750  BACXSPACE  5 Rrppil.90 

PFAO  (5,?60)  IOMPmU)  ,SFLAVG(I)  RFPR150C 

760  FORMAT  ( 14,4*, F6.I.)  REPPIFIO 

T0TAL=T0TAL»SELAVG(I)  RFPR157C 

IF  (I.EO.79)  go  to  770  RfPrif3C 

I=I»1  RFPP1F4C 

GO  TO  730  RFPP1550 

C REPR156C 

C NORMALI7E  VECTOR  VALUES.  RFPR1E70 

770  00  7«f  1=1,79  RFPR158C 

ANO»M (ISET ,I)=SFLAVG(I) /total  Rfpoi590 

750  WTAVG(I) =WTAVG(I ) ♦ W F I GMT ( IS®! ) • A NORM( I SF T , I ) REPR160C 

IF  (ISET.lT. NSETS)  go  to  170  RFPR161C 

REPR167C 

POUND  W=IGHTEO  AVERAGE  TO  FOUR  OFriwAL  POINTS.  RFPP1630 

TOTAL7=0.0  RFPR164C 

00  79C  1=1,79  RFPR1650 

WTAVGd  ) =FL0AT(  IFI*(  {WTAVG(  I)  ♦ . 0 0 0 0 5)  • 1 9 0 0 0 . ) ) / 10  0 0 0 . RFPR166C 

790  T0TAL7=T0TAL 7 ♦ WTavG(I)  RFPR1670 

C REPR16B0 

C INSURE  TmaT  pOUNOEO  values  AOO  to  1.0.  RFPR1690 

EPR0R=1 ,0-TOTAL?  RFPR170C 

IF  (ERROR. EO.O.C)  GO  TO  300  PFPR1710 

WTAVG(77)=WTAVG(77)  ♦ ERROR  REPR1770 

TOTAl7*TOTAL7  ♦ ERPOR  RFPR1730 

C RFPR174C 

OO  795  J=l,9  REPR1750 


REPROF  cont'd 

SHP«-(jiiO.O 

r 

C P9INT  «fICHTE0  «VER»GFS  *Nn  NORH»LIEEn  V»LUfS  FOP  »LL  PPOFILE*!.  - 
^10  W9ITE  «6.11CI  «PL«Nif  ,I5FT,  ISfTxi.NSETSI 

310  FOP-»T  <1  HO/1  HO  , 17*.  •HMEIGMTcr,/  i:x,15M0HPH  »WEP»G'’,3X. 

. q(a3,3MSFT,I?») 

r 

HPITF  «6,3?:i  <0*SH, 1=1 .NSPtqi 

3?0  F0OH*T  C10X.16M ,7X,qi3X,«5)/l 

c 

jpp- v^l 

00  3TC  1=1,70 

ir  tI.NF.3P)  GO  TO  31,0 

jppr V=S 

ttPITE  (6,330  ) 

33C  FOP“aT  (JMI) 

HPITF  »6,31C)  (BL»NK  ,ISFT, ISFT»1,NSFTS) 

NPITF  (6,3?C)  tD4$H,ISFT=l.N>:FTS) 

3u;  J=IFIXtFJ.O»T  tlOHPHtl))/  1000.0  ) 

SHP'‘ ( J)  =SNPE  ( J)  * NT»VG(I) 

IF  tJ.FO.JPPEV)  GO  TO  355 

jpp: v=j 

NPIFF  (6',  350  ) 

350  FOPH4T  (IX) 

355  MPITF  (6,360  I OMPH ( I ) , MT» VG ( I ) , t »NOPH ( ISET , I) , I SET  * 1 ,NSFT S) 
360  F0PH4T  (lOX. I4,6X,F6.6,6X,q(?X,F6.6) ) 

T-'O  WPITF  (7,760)  lOHPHtl)  ,H74vG(I) 

c 

HPITF  (6,375)  TOT4L7 

37S  FOP-4T  (IMO,  »X,fhT0T4L,1.X,F6.I.( 

C 

C POINT  SH5S  VECTOP.  

C 

HPITF  (6,350 

330  F0PH4T  tlHl/  10X,iqMSH<3S  NORH.  V4LUF/ 10  X,  iqH 

. / ) 

TCT4l3=0.C 
00  toe  J=1.p 
ISHOS=J*100 

T0T4L3=T0T4L3  ♦ SHB'(J) 

HPITF  (6,350  ISHPS,SHqF(jl 

350  F0PH4T  (lOX,  I4,6X,F6.i.) 

430  continue 

HPITF  (6,410)  T0T4L3 

410  E0PH4T  (IMO, 5X,5HT0T4L ,6X,FF.4) 

GO  TO  40 
FNO 
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